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

1 files changed, 4 insertions, 0 deletions

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;