diff options
| author | jao <jao@gnu.org> | 2021-04-21 02:20:14 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2021-04-21 02:20:14 +0100 |
| commit | fe3d881fff36cfa069e17488aa8906360c74cfd0 (patch) | |
| tree | 31ac3529dc34a0fd54b2a183a4175b2ecbc59da8 | |
| parent | 4cb7f2667ea1c53da53f0144910fbbd67bccbf4d (diff) | |
| download | geiser-chez-fe3d881fff36cfa069e17488aa8906360c74cfd0.tar.gz geiser-chez-fe3d881fff36cfa069e17488aa8906360c74cfd0.tar.bz2 | |
whitespace
| -rw-r--r-- | .gitignore | 1 | ||||
| -rw-r--r-- | geiser-chez.el | 14 |
2 files changed, 7 insertions, 8 deletions
diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..93f2373 --- /dev/null +++ b/.gitignore @@ -0,0 +1 @@ +/src/geiser/*.so 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: |