~ 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