~ chicken-core (chicken-5) 5f06d4deafa19424d49d78ed0c0a4b4ee5f6e1e5

commit 5f06d4deafa19424d49d78ed0c0a4b4ee5f6e1e5
Author:     unknown <felix@.(none)>
AuthorDate: Tue Nov 3 14:51:47 2009 +0100
Commit:     unknown <felix@.(none)>
CommitDate: Tue Nov 3 14:51:47 2009 +0100

    fix in handling of import-only

diff --git a/eval.scm b/eval.scm
index d849db32..f2dd9034 100644
--- a/eval.scm
+++ b/eval.scm
@@ -1248,14 +1248,17 @@
 		#t) )
 	      ((memq id ##sys#explicit-library-modules)
 	       (let* ((info (##sys#extension-information id 'require-extension))
+		      (nr (assq 'import-only info))
 		      (s (assq 'syntax info)))
 		 (values
 		  `(##core#begin
 		     ,@(if s `((##core#require-for-syntax ',id)) '())
 		     ,(impform
-		       (if comp?
-			   `(##core#declare (uses ,id)) 
-			   `(##sys#load-library ',id #f) )
+		       (if (not nr)
+			   (if comp?
+			       `(##core#declare (uses ,id)) 
+			       `(##sys#load-library ',id #f) )
+			   '(##core#undefined))
 		       id #f))
 		  #t) ) )
 	      (else