[nongnu] elpa/geiser-chez fe3d881 36/37: whitespace

[Philip Kaludercic]

branch: elpa/geiser-chez
commit fe3d881fff36cfa069e17488aa8906360c74cfd0
Author: jao <jao@gnu.org>
Commit: jao <jao@gnu.org>

    whitespace
---
 .gitignore     |  1 +
 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: