summaryrefslogtreecommitdiff
path: root/geiser-chez.el
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-10-15 05:42:34 +0100
committerjao <jao@gnu.org>2022-10-15 05:42:41 +0100
commit6c53a61becc8c308ca798aab2fc85ab9d2ad906a (patch)
treef3ffa422ae3e8b618c84578c945203b8e520ace1 /geiser-chez.el
parente0e651c29daa86fefe5125c6d5256cc0bdbcc03d (diff)
downloadgeiser-chez-6c53a61becc8c308ca798aab2fc85ab9d2ad906a.tar.gz
geiser-chez-6c53a61becc8c308ca798aab2fc85ab9d2ad906a.tar.bz2
module (i.e., library) awareness
Diffstat (limited to 'geiser-chez.el')
-rw-r--r--geiser-chez.el11
1 files changed, 6 insertions, 5 deletions
diff --git a/geiser-chez.el b/geiser-chez.el
index 7443461..900767b 100644
--- a/geiser-chez.el
+++ b/geiser-chez.el
@@ -136,11 +136,13 @@ Return its local name."
(defun geiser-chez--geiser-procedure (proc &rest args)
"Transform PROC in string for a scheme procedure using ARGS."
(cl-case proc
- ((eval compile) (format "(geiser:eval '%s '%s)" (car args) (cadr args)))
+ ((eval compile)
+ (if (listp (cadr args))
+ (format "(geiser:ge:eval '%s '%s)" (car args) (cadr args))
+ (format "(geiser:eval '%s '%s)" (car args) (cadr args))))
((load-file compile-file) (format "(geiser:load-file %s)" (car args)))
((no-values) "(geiser:no-values)")
- (t (let ((form (mapconcat 'identity args " ")))
- (format "(geiser:%s %s)" proc form)))))
+ (t (list (format "geiser:%s" proc) (mapconcat 'identity args " ")))))
(defun geiser-chez--current-library ()
"Find current library."
@@ -151,8 +153,7 @@ Return its local name."
(defun geiser-chez--get-module (&optional module)
"Find current module (libraries for Chez), or normalize MODULE."
- (cond ((null module) :f)
- ;; ((null module) (or (geiser-chez--current-library) :f))
+ (cond ((null module) (or (geiser-chez--current-library) :f))
((listp module) module)
((and (stringp module)
(ignore-errors (car (geiser-syntax--read-from-string module)))))