New command to open module file.

1 files changed, 6 insertions, 5 deletions

diff --git a/scheme/guile/geiser/introspection.scm b/scheme/guile/geiser/introspection.scm
index 110ab01..2021a32 100644
--- a/scheme/guile/geiser/introspection.scm
+++ b/scheme/guile/geiser/introspection.scm
@@ -30,7 +30,8 @@
             symbol-location
             docstring
             all-modules
-            module-children)
+            module-children
+            module-location)
   #:use-module (system vm program)
   #:use-module (ice-9 session)
   #:use-module (ice-9 documentation)
@@ -114,8 +115,11 @@
               (apropos-internal (string-append "^" prefix)))
          string<?))
 
+(define (module-location name)
+  (make-location (module-filename name) #f))
+
 (define (symbol-location sym)
-  (cond ((symbol-module sym) => make-location-from-module-name)
+  (cond ((symbol-module sym) => module-location)
         (else '())))
 
 (define (make-location file line)
@@ -124,9 +128,6 @@
 
 (define module-filename (@@ (ice-9 session) module-filename))
 
-(define (make-location-from-module-name name)
-  (make-location (module-filename name) #f))
-
 (define (display-docstring sym)
   (let ((obj (symbol->obj sym)))
     (if obj