[nongnu] elpa/geiser-gauche b10594b 042/119: Fixes and logging

[Philip Kaludercic]

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

    Fixes and logging
---
 geiser-gauche.el | 30 +++++++++++++++---------------
 geiser.scm       |  3 ++-
 2 files changed, 17 insertions(+), 16 deletions(-)

diff --git a/geiser-gauche.el b/geiser-gauche.el
index 71a1b5d..572b25c 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))))
-  (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))))))
+  (cl-case proc
+    ;; Eval and compile are (module) context sensitive
+    ((eval compile)
+     (let ((module (cond ((string-equal "'()" (car args))
+                         "'()")
+                        ((and (car args))
+                         (concat "'" (car args)))
+                        (t
+                         "#f")))
+          (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) (find-module 'geiser))" proc form)))))
 
 (defconst geiser-gauche--module-re
   "(define-module +\\([[:alnum:].]+\\)")
diff --git a/geiser.scm b/geiser.scm
index 526f29f..28fc78e 100644
--- a/geiser.scm
+++ b/geiser.scm
@@ -57,7 +57,8 @@
     (cut pprint (macroexpand form))))
 
 (define (geiser:eval module-name form . rest)
-  rest
+  (call-with-output-file "/tmp/gauche.log"
+    (^o (format o "FORM: ~s, REST: ~s" form rest)))
   (let* ((output (open-output-string))
          (module (or (and (symbol? module-name )
                          (find-module module-name))