>From 586fe04ce75adbc2632bd457baf7a0e88f94f64d Mon Sep 17 00:00:00 2001
From: Peter Bex <address@hidden>
Date: Mon, 27 Jan 2014 21:16:59 +0100
Subject: [PATCH] Fix issue building files which explicitly use units via
 -uses and then (use) them

Found through the "git" egg's compilation failure.
---
 eval.scm |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/eval.scm b/eval.scm
index 76ca7d6..a835394 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)) '())
-- 
1.7.10.4