From e48f1416f777022e215a5b79d86512d365cc550c Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 12 Dec 2016 06:33:54 -0800
Subject: bugfix: find-max doesn't handle internal literals.

* lib.c (find_max): Handle LIT case in switch.
Also, fix nonsensical, typo-ridden error message.
---
 lib.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib.c b/lib.c
index 6576049c..402f41ce 100644
--- a/lib.c
+++ b/lib.c
@@ -8013,6 +8013,7 @@ val find_max(val seq, val testfun, val keyfun)
     }
   case STR:
   case LSTR:
+  case LIT:
   case VEC:
     {
       val maxelt = ref(seq, zero);
@@ -8031,7 +8032,7 @@ val find_max(val seq, val testfun, val keyfun)
       return maxelt;
     }
   default:
-    uw_throwf(error_s, lit("find-max: unsupporte object ~s is a literal"), seq, nao);
+    uw_throwf(error_s, lit("find-max: unsupported object ~s"), seq, nao);
   }
 }
 
-- 
cgit v1.2.3