~ 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