summaryrefslogtreecommitdiff
path: root/scheme/guile
diff options
context:
space:
mode:
Diffstat (limited to 'scheme/guile')
-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)