diff options
Diffstat (limited to 'mwexpand.scm')
| -rwxr-xr-x[-rw-r--r--] | mwexpand.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/mwexpand.scm b/mwexpand.scm index 719b899..c4823eb 100644..100755 --- a/mwexpand.scm +++ b/mwexpand.scm @@ -243,9 +243,10 @@ (cons mw:begin1 body))) (let* ((alist (mw:rename-vars '(quote lambda set!))) (env (mw:syntax-alias env alist mw:standard-syntax-environment)) - (new-quote (cdr (assq 'quote alist))) + ;;(new-quote (cdr (assq 'quote alist))) (new-lambda (cdr (assq 'lambda alist))) - (new-set! (cdr (assq 'set! alist)))) + ;;(new-set! (cdr (assq 'set! alist))) + ) (define (desugar-definition def) (if (> (mw:safe-length def) 2) (cond ((pair? (cadr def)) |