From 384262e2f0effb4b7bbd2effa9311899fa253799 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sun, 11 Jan 2015 10:08:32 -0800
Subject: * lib.c (make_like): Bugfix. (make-like nil "abc") must return the
 empty string, not nil. Only lists of non-characters fail to convert to a
 string. Since programs may depend on the hitherto wrong, undocumented
 behavior, this is made subject to compatibility.

* txr.1: Added compatibility note.
---
 lib.c | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'lib.c')

diff --git a/lib.c b/lib.c
index a6f01a66..41a9c29f 100644
--- a/lib.c
+++ b/lib.c
@@ -504,6 +504,10 @@ val make_like(val list, val thatobj)
     case STR:
     case LIT:
     case LSTR:
+      if (!opt_compat || opt_compat > 101) {
+        if (!cdr(list))
+          return null_string;
+      }
       if (is_chr(car(list)))
         return cat_str(list, nil);
       break;
-- 
cgit v1.2.3