* 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.

1 files changed, 3 insertions, 1 deletions

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: