~ chicken-core (chicken-5) 3d22782b245a179d42c75ad8273f7f726c231fd5
commit 3d22782b245a179d42c75ad8273f7f726c231fd5
Author: Evan Hanson <evhan@foldling.org>
AuthorDate: Fri Jan 1 17:17:11 2016 +1300
Commit: Evan Hanson <evhan@foldling.org>
CommitDate: Fri Jan 1 17:21:15 2016 +1300
Remove import libraries from tracking list even when "-J" is used
diff --git a/compiler.scm b/compiler.scm
index 48befa61..4010a032 100644
--- a/compiler.scm
+++ b/compiler.scm
@@ -869,17 +869,17 @@
(print-error-message ex (current-error-port))
(exit 1))
(##sys#finalize-module (##sys#current-module)))
- (cond ((or all-import-libraries
- (assq name import-libraries) ) =>
- (lambda (il)
- (when enable-module-registration
- (emit-import-lib name il))
- ;; Remove from list to avoid error
- (set! import-libraries
- (delete il import-libraries))
- (values
- (reverse xs)
- '((##core#undefined)))))
+ (cond ((or (assq name import-libraries) all-import-libraries)
+ => (lambda (il)
+ (when enable-module-registration
+ (emit-import-lib name il))
+ ;; Remove from list to avoid error
+ (when (pair? il)
+ (set! import-libraries
+ (delete il import-libraries)))
+ (values
+ (reverse xs)
+ '((##core#undefined)))))
((not enable-module-registration)
(values
(reverse xs)
Trap