diff options
Diffstat (limited to 'geiser-chez.el')
| -rw-r--r-- | geiser-chez.el | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/geiser-chez.el b/geiser-chez.el index 983490c..f224fad 100644 --- a/geiser-chez.el +++ b/geiser-chez.el @@ -91,12 +91,9 @@ This function uses `geiser-chez-init-file' if it exists." (cl-case proc ((eval compile) (let ((form (mapconcat 'identity (cdr args) " ")) - (module (cond ((string-equal "'()" (car args)) - "'()") - ((and (car args)) - (concat "'" (car args))) - (t - "#f")))) + (module (cond ((string-equal "'()" (car args)) "'()") + ((car args) (concat "'" (car args))) + (t "#f")))) (format "(geiser:eval %s '%s)" module form))) ((load-file compile-file) (format "(geiser:load-file %s)" (car args))) @@ -125,7 +122,7 @@ This function uses `geiser-chez-init-file' if it exists." (save-excursion (skip-syntax-backward "^'-()>") (point)))) (defun geiser-chez--import-command (module) - "Return string representing an sexp importing MODULE." + "Return string representing a sexp importing MODULE." (format "(import %s)" module)) (defun geiser-chez--exit-command () @@ -145,7 +142,8 @@ This function uses `geiser-chez-init-file' if it exists." "Startup function." (let ((geiser-log-verbose-p t)) (compilation-setup t) - (geiser-eval--send/wait "(begin (import (geiser)) (write `((result ) (output . \"\"))) (newline))"))) + (geiser-eval--send/wait + "(begin (import (geiser)) (write `((result ) (output . \"\"))) (newline))"))) ;;; Error display: |