From 19ed2c06ab66a4ef22e7695c06d09579b5dfa54a Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Fri, 3 Sep 2010 23:45:31 +0200 Subject: Guile: don't create empty modules before loading them --- geiser/modules.scm | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) (limited to 'geiser/modules.scm') 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) -- cgit v1.2.3