From c2a3e0ebc198739b77bdfb30194ad17b309333af Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Thu, 26 Jun 2014 07:13:13 -0700
Subject: * lib.c (search): Bugfix in type mismatch error message: trying to
 print cons function pointer as value.

---
 lib.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib.c')

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;
-- 
cgit v1.2.3