~ 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