branch: elpa/geiser-guile
commit 19ed2c06ab66a4ef22e7695c06d09579b5dfa54a
Author: Jose Antonio Ortega Ruiz <[email protected]>
Commit: Jose Antonio Ortega Ruiz <[email protected]>
Guile: don't create empty modules before loading them
---
geiser/modules.scm | 9 +++------
1 file 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)
