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 | 35d7893f4889a7b4e67102b0da6363ed2454bc74 (patch) | |
| tree | daf80a749af4ad21208224cf06c5252029ec4237 /scheme | |
| parent | 8efeb0b047131e54550c919493b6f8b2680df29e (diff) | |
| download | geiser-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.scm | 9 |
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) |