branch: elpa/geiser-gauche
commit 652927a2792e3f67134524b4107803720905d736
Author: András Simonyi <[email protected]>
Commit: András Simonyi <[email protected]>
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:].]+\\)")
