changeset 193 | 51d1e29d5e12 |
parent 192 | c5a04feea230 |
child 194 | 84461d0a5c25 |
--- a/experiments/partial-eval/pe2.scm Tue Jan 06 02:24:29 2009 +1300 +++ b/experiments/partial-eval/pe2.scm Sat Jan 17 10:57:35 2009 +1300 @@ -55,7 +55,7 @@ (cond ((not (pair? exp)) `(quote ,exp)) ((eq? (car exp) 'quasiquote) - `(cons 'quasiquote (cons ,(qq (cadr exp) (+ depth 1)) '()))) + `(cons ','quasiquote (cons ,(qq (cadr exp) (+ depth 1)) '()))) ((eq? (car exp) 'unquote) (if (= depth 1) (cadr exp)