diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-09-03 23:45:31 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-09-03 23:45:31 +0200 |
| commit | 19ed2c06ab66a4ef22e7695c06d09579b5dfa54a (patch) | |
| tree | dc61c32f6a6bf835a089f4ac6474b4a13b17ca83 | |
| parent | 1178462f3d6476ee4a09fc04348a58a09b19179b (diff) | |
| download | geiser-guile-19ed2c06ab66a4ef22e7695c06d09579b5dfa54a.tar.gz geiser-guile-19ed2c06ab66a4ef22e7695c06d09579b5dfa54a.tar.bz2 | |
Guile: don't create empty modules before loading them
| -rw-r--r-- | geiser/modules.scm | 9 |
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) |