~ chicken-core (chicken-5) 2b37594c72ce3f48b0b18b64df6eb0aa1fd283b2
commit 2b37594c72ce3f48b0b18b64df6eb0aa1fd283b2
Author: Peter Bex <peter.bex@xs4all.nl>
AuthorDate: Mon Jan 27 21:16:59 2014 +0100
Commit: Moritz Heidkamp <moritz@twoticketsplease.de>
CommitDate: Mon Jan 27 21:48:15 2014 +0100
Fix issue building files which explicitly use units via -uses and then (use) them
Found through the "git" egg's compilation failure.
Signed-off-by: Moritz Heidkamp <moritz@twoticketsplease.de>
diff --git a/eval.scm b/eval.scm
index 76ca7d67..a8353942 100644
--- a/eval.scm
+++ b/eval.scm
@@ -1327,8 +1327,8 @@
#t id) )
((memq id ##sys#explicit-library-modules)
(let* ((info (##sys#extension-information id 'require-extension))
- (nr (assq 'import-only info))
- (s (assq 'syntax info)))
+ (nr (and info (assq 'import-only info)))
+ (s (and info (assq 'syntax info))))
(values
`(##core#begin
,@(if s `((##core#require-for-syntax ',id)) '())
Trap