~ chicken-core (chicken-5) 64be532ea33137784582ededc0e03ff33609c67d
commit 64be532ea33137784582ededc0e03ff33609c67d
Author: Evan Hanson <evhan@foldling.org>
AuthorDate: Tue Feb 9 10:01:26 2016 +1300
Commit: Evan Hanson <evhan@foldling.org>
CommitDate: Tue Mar 8 22:52:35 2016 +1300
Restore non-registration of modules in executables
This is just to preserve the behaviour of CHICKEN 4 until a more
flexible way of controlling module registration is implemented.
diff --git a/core.scm b/core.scm
index 90b78c9b..8898b16f 100644
--- a/core.scm
+++ b/core.scm
@@ -968,14 +968,18 @@
(when (pair? il)
(set! import-libraries
(delete il import-libraries)))
- (values (reverse xs) '((##core#undefined)))))
+ (values (reverse xs) '())))
((not enable-module-registration)
- (values (reverse xs) '((##core#undefined))))
+ (values (reverse xs) '()))
(else
(values
(reverse xs)
- (##sys#compiled-module-registration
- (##sys#current-module))))))
+ ;; XXX there's currently no way to enable
+ ;; module registration for executables!
+ (if standalone-executable
+ '()
+ (##sys#compiled-module-registration
+ (##sys#current-module)))))))
(else
(loop
(cdr body)
Trap