From 8b01397de3f74cb608250554119322e53099a9a8 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 26 Feb 2014 20:09:23 -0800 Subject: * lib.c (make_like): If the first element of list isn't a character, then don't try to make it into a string; keep it as a list. This allows [mapcar list "abc" "def"] to work intuitively rather than blow up. --- lib.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'lib.c') diff --git a/lib.c b/lib.c index 4b1366e1..9aa3af95 100644 --- a/lib.c +++ b/lib.c @@ -453,7 +453,9 @@ val make_like(val list, val thatobj) case STR: case LIT: case LSTR: - return cat_str(list, nil); + if (is_chr(car(list))) + return cat_str(list, nil); + break; case NIL: case CONS: case LCONS: -- cgit v1.2.3