From c2a3e0ebc198739b77bdfb30194ad17b309333af Mon Sep 17 00:00:00 2001 From: Kaz Kylheku 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. --- ChangeLog | 5 +++++ lib.c | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 3f54b517..269a9161 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2014-06-26 Kaz Kylheku + + * lib.c (search): Bugfix in type mismatch error message: + trying to print cons function pointer as value. + 2014-06-26 Kaz Kylheku * eval.c (mapcarv): Use mapcar_listout, so list_of_lists can be 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