~ chicken-core (chicken-5) bc7c4fc530f6bc13bc68d19a8c2737f5204451af

commit bc7c4fc530f6bc13bc68d19a8c2737f5204451af
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Aug 18 06:06:58 2010 -0400
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Aug 18 06:06:58 2010 -0400

    disablesd notices when loading import library

diff --git a/expand.scm b/expand.scm
index ad6fb9c1..895cec99 100644
--- a/expand.scm
+++ b/expand.scm
@@ -857,9 +857,11 @@
 		     #t)))
 	    (cond (il (parameterize ((##sys#current-module #f)
 				     (##sys#current-environment '())
-				     (##sys#current-meta-environment (##sys#current-meta-environment))
+				     (##sys#current-meta-environment 
+				      (##sys#current-meta-environment))
 				     (##sys#macro-environment (##sys#meta-macro-environment)))
-			(##sys#load il #f #f))
+			(fluid-let ((##sys#notices-enabled #f)) ; to avoid re-import warnings
+			  (##sys#load il #f #f)))
 		      (set! mod (##sys#find-module mname)))
 		  (else
 		   (syntax-error