summaryrefslogtreecommitdiffstats
path: root/lib.c
diff options
context:
space:
mode:
Diffstat (limited to 'lib.c')
-rw-r--r--lib.c6
1 files changed, 6 insertions, 0 deletions
diff --git a/lib.c b/lib.c
index 0543d9dd..9cfcd286 100644
--- a/lib.c
+++ b/lib.c
@@ -9671,6 +9671,12 @@ val lazy_str_get_trailing_list(val lstr, val index)
if (!cdr(split_suffix) && equal(car(split_suffix), null_string))
return lstr->ls.list;
+ if (!opt_compat || opt_compat > 273) {
+ val penult = nthlast(two, split_suffix);
+ if (equal(cadr(penult), null_string))
+ rplacd(penult, nil);
+ }
+
return nappend2(split_suffix, lstr->ls.list);
}
}