~ 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