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

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  <kaz@kylheku.com>
+
+	* 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  <kaz@kylheku.com>
 
 	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 {