summaryrefslogtreecommitdiff
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
commit19ed2c06ab66a4ef22e7695c06d09579b5dfa54a (patch)
treedc61c32f6a6bf835a089f4ac6474b4a13b17ca83
parent1178462f3d6476ee4a09fc04348a58a09b19179b (diff)
downloadgeiser-guile-19ed2c06ab66a4ef22e7695c06d09579b5dfa54a.tar.gz
geiser-guile-19ed2c06ab66a4ef22e7695c06d09579b5dfa54a.tar.bz2
Guile: don't create empty modules before loading them
-rw-r--r--geiser/modules.scm9
1 files changed, 3 insertions, 6 deletions
diff --git a/geiser/modules.scm b/geiser/modules.scm
index 7ca18c9..f558579 100644
--- a/geiser/modules.scm
+++ b/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)