From 29ef365cd0c0931b5b34a5258b036e8d5a966357 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 25 May 2020 06:25:48 -0700 Subject: search/rsearch: wrong object in bad key diagnostic. * lib.c (search_list, rsearch_list): When the key has a bad type, don't report the seq object in its place. --- lib.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib.c') diff --git a/lib.c b/lib.c index 65bee46b..7f0d04da 100644 --- a/lib.c +++ b/lib.c @@ -10820,7 +10820,7 @@ static val search_list(val seq, val key, val testfun, val keyfun) } break; default: - type_mismatch(lit("search: ~s is not a sequence"), seq, nao); + type_mismatch(lit("search: ~s is not a sequence"), key, nao); } return nil; @@ -10894,7 +10894,7 @@ static val rsearch_list(val seq, val key, val testfun, val keyfun) } break; default: - type_mismatch(lit("rsearch: ~s is not a sequence"), seq, nao); + type_mismatch(lit("rsearch: ~s is not a sequence"), key, nao); } return found; -- cgit v1.2.3