diff options
| author | jao <jao@gnu.org> | 2022-10-15 03:33:46 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-10-15 03:33:46 +0100 |
| commit | e0e651c29daa86fefe5125c6d5256cc0bdbcc03d (patch) | |
| tree | 8b4716907c9514d98aa4b6e26246e9a9e28b74ec /geiser-chez.el | |
| parent | 4fd0a65645fda5a775f939f36e2e2cdb98f54b73 (diff) | |
| download | geiser-chez-e0e651c29daa86fefe5125c6d5256cc0bdbcc03d.tar.gz geiser-chez-e0e651c29daa86fefe5125c6d5256cc0bdbcc03d.tar.bz2 | |
little simplifications
Diffstat (limited to 'geiser-chez.el')
| -rw-r--r-- | geiser-chez.el | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/geiser-chez.el b/geiser-chez.el index d9ad5eb..7443461 100644 --- a/geiser-chez.el +++ b/geiser-chez.el @@ -136,12 +136,7 @@ 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) - (let ((form (mapconcat 'identity (cdr args) " ")) - (module (cond ((string-equal "'()" (car args)) "'()") - ((car args) (concat "'" (car args))) - (t "#f")))) - (format "(geiser:eval %s '%s)" module form))) + ((eval compile) (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 " "))) |