diff options
| author | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:06:40 -0800 |
|---|---|---|
| committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:06:40 -0800 |
| commit | a69c9fb665459e2bfdbda1bf80741a0af31a7faf (patch) | |
| tree | f0bc974f8805049e6b9a4e6864886298fbaa05a4 /mwexpand.scm | |
| parent | 4684239efa63dc1b2c1cbe37ef7d3062029f5532 (diff) | |
| download | slib-upstream/3b5.tar.gz slib-upstream/3b5.zip | |
New upstream version 3b5upstream/3b5upstream
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)) |