From 5bc1cc4489663efb96f51b941d3b2313d82f7eef Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 11 Feb 2014 14:21:27 -0800 Subject: * eval.c (subst_vars): Bugfix: results of expressions not treated in the same way as variables: lists not stringified, causing expansions with parentheses, and sometimes errors due to unhandled objects. Also, use tostringp instead of format for stringifying objects. stringifying object. Bugfix.k * match.c (subst_vars): Added comment similar to the one in the subst_vars of eval.c. Removed superfluous conversion code where the str variable is already known to be a string. --- eval.c | 23 +++++++++++++++++------ 1 file changed, 17 insertions(+), 6 deletions(-) (limited to 'eval.c') diff --git a/eval.c b/eval.c index 6024c60b..d97f0cfd 100644 --- a/eval.c +++ b/eval.c @@ -1280,17 +1280,24 @@ static val subst_vars(val forms, val env) val modifiers = fourth(form); val str = eval(expr, env, form); + /* If the object is a list, we let format_field deal with the + conversion to text, because the modifiers influence how + it is done. */ if (!stringp(str) && !listp(str)) - str = format(nil, lit("~a"), str, nao); + str = tostringp(str); - if (pat) + if (pat) { forms = cons(str, cons(pat, rest(forms))); - else if (modifiers) + } else if (modifiers) { forms = cons(format_field(str, modifiers, nil, curry_123_1(func_n3(eval), env, form)), rest(forms)); - else + } else { + if (listp(str)) + str = cat_str(mapcar(func_n1(tostringp), str), lit(" ")); forms = cons(str, rest(forms)); + } + continue; } else if (sym == quasi_s) { val nested = subst_vars(rest(form), env); @@ -1298,8 +1305,12 @@ static val subst_vars(val forms, val env) forms = cdr(forms); continue; } else if (sym == expr_s) { - val result = eval(rest(form), env, form); - forms = cons(format(nil, lit("~a"), result, nao), rest(forms)); + val str = eval(rest(form), env, form); + if (listp(str)) + str = cat_str(mapcar(func_n1(tostringp), str), lit(" ")); + else if (!stringp(str)) + str = tostringp(str); + forms = cons(str, rest(forms)); continue; } else { val nested = subst_vars(form, env); -- cgit v1.2.3