~ chicken-core (chicken-5) 234ea22ff3f56d11680db383801ce22e4b84aa91

commit 234ea22ff3f56d11680db383801ce22e4b84aa91
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Jun 18 15:21:27 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat Jun 18 15:21:27 2011 +0200

    no need to run ##sys#resolve-module-name here

diff --git a/compiler.scm b/compiler.scm
index d8d9b95a..f1510bfa 100644
--- a/compiler.scm
+++ b/compiler.scm
@@ -598,11 +598,8 @@
 			    (let loop ([ids (##sys#strip-syntax (cadr x))])
 			      (if (null? ids)
 				  '(##core#undefined)
-				  (let ((id (##sys#resolve-module-name (car ids) #f)))
-				    (let-values ([(exp f)
-						  (##sys#do-the-right-thing
-						   (##sys#resolve-module-name id #f)
-						   #t imp?)])
+				  (let ((id (car ids)))
+				    (let-values (((exp f) (##sys#do-the-right-thing id #t imp?)))
 				      (unless (or f 
 						  (and (symbol? id)
 						       (or (feature? id)