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.

1 files changed, 2 insertions, 2 deletions

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;