From a69c9fb665459e2bfdbda1bf80741a0af31a7faf Mon Sep 17 00:00:00 2001 From: Bryan Newbold Date: Mon, 20 Feb 2017 00:06:40 -0800 Subject: New upstream version 3b5 --- mwexpand.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) mode change 100644 => 100755 mwexpand.scm (limited to 'mwexpand.scm') diff --git a/mwexpand.scm b/mwexpand.scm old mode 100644 new mode 100755 index 719b899..c4823eb --- 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)) -- cgit v1.2.3