diff options
| -rw-r--r-- | geiser-chez.el | 7 | ||||
| -rw-r--r-- | src/geiser/geiser.ss | 5 |
2 files changed, 3 insertions, 9 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 " "))) diff --git a/src/geiser/geiser.ss b/src/geiser/geiser.ss index ba5d616..e508ce2 100644 --- a/src/geiser/geiser.ss +++ b/src/geiser/geiser.ss @@ -239,9 +239,8 @@ `(("file" . ,(with-extension obj (car exts))))) (else (loop (cdr exts))))))) - (define (geiser:no-values) #f) - - (define (geiser:newline) #f) + (define geiser:no-values void) + (define geiser:newline newline) (define (geiser:macroexpand form . rest) (with-output-to-string |