summaryrefslogtreecommitdiff
path: root/scheme
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-09-03 23:45:31 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-09-03 23:45:31 +0200
commit35d7893f4889a7b4e67102b0da6363ed2454bc74 (patch)
treedaf80a749af4ad21208224cf06c5252029ec4237 /scheme
parent8efeb0b047131e54550c919493b6f8b2680df29e (diff)
downloadgeiser-guile-35d7893f4889a7b4e67102b0da6363ed2454bc74.tar.gz
geiser-guile-35d7893f4889a7b4e67102b0da6363ed2454bc74.tar.bz2
Guile: don't create empty modules before loading them
Diffstat (limited to 'scheme')
-rw-r--r--scheme/guile/geiser/modules.scm9
1 files changed, 3 insertions, 6 deletions
diff --git a/scheme/guile/geiser/modules.scm b/scheme/guile/geiser/modules.scm
index 7ca18c9..f558579 100644
--- a/scheme/guile/geiser/modules.scm
+++ b/scheme/guile/geiser/modules.scm
@@ -47,12 +47,9 @@
(define (module-location name)
(make-location (module-path name) #f))
-(define (find-module module-name)
- (and (module-name? module-name)
- (or (nested-ref (resolve-module '() #f) module-name)
- (let ((m (resolve-module module-name #f)))
- (beautify-user-module! m)
- m))))
+(define (find-module mod-name)
+ (and (module-name? mod-name)
+ (resolve-module mod-name #f #:ensure #f)))
(define (module-path module-name)
(and (module-name? module-name)