[nongnu] elpa/geiser-gauche 72f5107 054/119: Minor fixes

[Philip Kaludercic]

branch: elpa/geiser-gauche
commit 72f510729795f741f25ee764d47cb94313afad7f
Author: András Simonyi <andras.simonyi@gmail.com>
Commit: András Simonyi <andras.simonyi@gmail.com>

    Minor fixes
---
 geiser-gauche.el | 1 +
 geiser.scm       | 7 +++----
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/geiser-gauche.el b/geiser-gauche.el
index 343206c..3a4e84d 100644
--- a/geiser-gauche.el
+++ b/geiser-gauche.el
@@ -88,6 +88,7 @@
   (cl-case proc
     ;; Eval and compile are (module) context sensitive
     ((no-values) "(eval '(geiser:no-values) (find-module 'geiser))")
+    ((load-file) (format "(eval '(geiser:load-file %s) (find-module 'geiser))" 
(car args)))
     ((eval compile)
      (let ((module (cond ((string-equal "'()" (car args))
                          "'()")
diff --git a/geiser.scm b/geiser.scm
index 48c4372..4cd8edb 100644
--- a/geiser.scm
+++ b/geiser.scm
@@ -205,7 +205,7 @@
                 (cdr sig)))
              ("module" ,module))))))
 
-;; Module documentation
+;; Module information
 
 (define (geiser:module-exports mod-name . rest)
   (let* ((module (find-module mod-name))
@@ -234,9 +234,6 @@
               (else (push! vars (list sym))))))
     `(list ("modules") ("procs" . ,procs) ("syntax" . ,macros) ("vars" . 
,vars))))
 
-
-;; Further
-
 (define (geiser:module-location m . rest)
   (and (find-module m)
        (let1 paths (map cdr (library-fold m acons '()))
@@ -244,6 +241,8 @@
                 `(("file" . ,(car paths)) ("line") ("column"))
                 ()))))
 
+
+;; Further
 
 ;; TODO We add the load-path at the end. Is this correct?
 (define-macro (geiser:add-to-load-path dir)