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)))