[nongnu] elpa/geiser-gauche 652927a 041/119: Pass the module as a last argument to geiser: functions

[Philip Kaludercic]

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

    Pass the module as a last argument to geiser: functions
---
 geiser-gauche.el | 30 +++++++++++++++---------------
 1 file changed, 15 insertions(+), 15 deletions(-)

diff --git a/geiser-gauche.el b/geiser-gauche.el
index 7d3fd12..71a1b5d 100644
--- a/geiser-gauche.el
+++ b/geiser-gauche.el
@@ -85,21 +85,21 @@
   ;;   (insert (format "\nGeiser PROC: %s, ARGS: %s \ntranslated to:\n" proc 
args))
   ;;   (insert (let ((form (mapconcat 'identity args " ")))
   ;;        (format "(eval '(geiser:%s %s) (find-module 'geiser))" proc 
form))))
-  (cl-case proc
-    ;; Eval and compile are (module) context sensitive
-    ((eval compile)
-     (let ((form (mapconcat 'identity (cdr args) " "))
-           (module (cond ((string-equal "'()" (car args))
-                          "'()")
-                         ((and (car args))
-                          (concat "'" (car args)))
-                         (t
-                          "#f"))))
-       (format "(eval '(geiser:eval %s '%s) (find-module 'geiser))" module 
form)))
-    ;; The rest of the commands are all evaluated in the geiser module 
-    (t
-     (let ((form (mapconcat 'identity args " ")))
-       (format "(eval '(geiser:%s %s) (find-module 'geiser))" proc form)))))
+  (let ((module (cond ((string-equal "'()" (car args))
+                          "'()")
+                         ((and (car args))
+                          (concat "'" (car args)))
+                         (t
+                          "#f"))))
+   (cl-case proc
+     ;; Eval and compile are (module) context sensitive
+     ((eval compile)
+      (let ((form (mapconcat 'identity (cdr args) " ")))
+       (format "(eval '(geiser:eval %s '%s) (find-module 'geiser))" module 
form)))
+     ;; The rest of the commands are all evaluated in the geiser module 
+     (t
+      (let ((form (mapconcat 'identity args " ")))
+       (format "(eval '(geiser:%s %s %s) (find-module 'geiser))" proc form 
module))))))
 
 (defconst geiser-gauche--module-re
   "(define-module +\\([[:alnum:].]+\\)")