all imports are immutable

This commit is contained in:
Alex Shinn 2011-04-26 22:57:28 +09:00
parent e633c3dfbd
commit 0ad4d2ff63

View file

@ -110,8 +110,7 @@
(lambda (m)
(let* ((mod2-name+imports (resolve-import m))
(mod2 (load-module (car mod2-name+imports))))
(%env-copy! env (module-env mod2) (cdr mod2-name+imports)
(eq? (car x) 'import-immutable))))
(%env-copy! env (module-env mod2) (cdr mod2-name+imports) #t)))
(cdr x)))))
(module-meta-data mod))
(for-each