* lib.c (search): Bugfix in type mismatch error message:

trying to print cons function pointer as value.

1 files changed, 1 insertions, 1 deletions

diff --git a/lib.c b/lib.c
index 422396f0..197a89fb 100644
--- a/lib.c
+++ b/lib.c
@@ -5498,7 +5498,7 @@ val search(val seq, val key, val testfun, val keyfun)
     /* TODO: optimize me */
     return search_list(seq, key, testfun, keyfun);
   default:
-    type_mismatch(lit("search: ~s is not a sequence"), cons, nao);
+    type_mismatch(lit("search: ~s is not a sequence"), seq, nao);
   }
 
   return seq;