bugfix: find-max doesn't handle internal literals.

* lib.c (find_max): Handle LIT case in switch.
Also, fix nonsensical, typo-ridden error message.

1 files changed, 2 insertions, 1 deletions

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);
   }
 }