~ chicken-core (chicken-5) 857c61fb10211b4826c7a81fcf1794e0551de4b3
commit 857c61fb10211b4826c7a81fcf1794e0551de4b3 Author: Peter Bex <peter@more-magic.net> AuthorDate: Fri Apr 27 13:07:40 2018 +0200 Commit: Peter Bex <peter@more-magic.net> CommitDate: Sun Apr 29 10:38:24 2018 +0200 Do not patch up iexpressions with syntax environment Just like we noted in 097053f, iexpressions are just symbol->symbol mappings and never contain macros, so there is no need to patch up the syntax environments either. diff --git a/modules.scm b/modules.scm index c450e525..bd2ba1e2 100644 --- a/modules.scm +++ b/modules.scm @@ -379,11 +379,6 @@ (lambda (sexp) (set-car! (cdr sexp) (merge-se (or (cadr sexp) '()) senv))) sexps) - (for-each - (lambda (iexp) - (when (pair? (cdr iexp)) - (set-car! (cdr iexp) (merge-se (or (cadr iexp) '()) senv)))) - iexports) (for-each (lambda (nexp) (set-car! (cdr nexp) (merge-se (or (cadr nexp) '()) senv)))Trap