~ 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