From d622036eb53975362bd74f72100a242f792a62fd Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Mon, 9 Jul 2012 20:08:08 +0900 Subject: [PATCH] prefix and drop-prefix imports will look up exported identifiers if missing --- lib/meta.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lib/meta.scm b/lib/meta.scm index c26558b5..61dbb284 100644 --- a/lib/meta.scm +++ b/lib/meta.scm @@ -101,7 +101,8 @@ (car (cddr x)) (to-id i)) (from-id i))) - (cdr mod-name+imports))))) + (or (cdr mod-name+imports) + (module-exports (find-module (car mod-name+imports)))))))) ((and (pair? (cdr x)) (pair? (cadr x))) (if (memq (car x) '(only except rename)) (let* ((mod-name+imports (resolve-import (cadr x)))