From 6768cdf7a46856355ccfafc57f147fac14eba06b Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 2 Dec 2011 09:09:28 -0800 Subject: * eval.c (expand_qquote): Bugfix: removed bogus recognition and processing of regular quote form. This broke nested backquote processing, and quasiquote forms containing non-quasi-quotes like like '(a 'b ,c). --- ChangeLog | 7 +++++++ eval.c | 2 -- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 6e87ae90..c4b12c7b 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2011-12-02 Kaz Kylheku + + * eval.c (expand_qquote): Bugfix: removed bogus recognition + and processing of regular quote form. This broke nested + backquote processing, and quasiquote forms containing + non-quasi-quotes like like '(a 'b ,c). + 2011-11-20 Kaz Kylheku Version 044 diff --git a/eval.c b/eval.c index 3f6e7b74..2b27f7be 100644 --- a/eval.c +++ b/eval.c @@ -703,8 +703,6 @@ static val expand_qquote(val qquoted_form) f_ex = expand(second(f)); } else if (qsym == unquote_s) { f_ex = cons(list_s, cons(expand(second(f)), nil)); - } else if (qsym == quote_s) { - f_ex = cons(quote_s, cons(cons(second(f), nil), nil)); } else if (qsym == qquote_s) { f_ex = cons(list_s, cons(expand_qquote(expand_qquote(second(f))), nil)); } else { -- cgit v1.2.3