~ 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