[nongnu] elpa/geiser-chicken 30957df 083/102: Fix indentation

[Philip Kaludercic]

branch: elpa/geiser-chicken
commit 30957dfa822fdc110cffb75639ccfcf49b08f17a
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    Fix indentation
---
 elisp/geiser-chicken.el | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/elisp/geiser-chicken.el b/elisp/geiser-chicken.el
index d0e443b..97ef441 100644
--- a/elisp/geiser-chicken.el
+++ b/elisp/geiser-chicken.el
@@ -125,11 +125,11 @@ This function uses `geiser-chicken-init-file' if it 
exists."
   (let ((init-file (and (stringp geiser-chicken-init-file)
                         (expand-file-name geiser-chicken-init-file)))
         (n-flags (and (not geiser-chicken-load-init-file-p) '("-n"))))
-  `(,@(and (listp geiser-chicken-binary) (cdr geiser-chicken-binary))
-    ,@n-flags "-include-path" ,(expand-file-name "chicken/" geiser-scheme-dir)
-    ,@(apply 'append (mapcar (lambda (p) (list "-include-path" p))
-                             geiser-chicken-load-path))
-    ,@(and init-file (file-readable-p init-file) (list init-file)))))
+    `(,@(and (listp geiser-chicken-binary) (cdr geiser-chicken-binary))
+      ,@n-flags "-include-path" ,(expand-file-name "chicken/" 
geiser-scheme-dir)
+      ,@(apply 'append (mapcar (lambda (p) (list "-include-path" p))
+                               geiser-chicken-load-path))
+      ,@(and init-file (file-readable-p init-file) (list init-file)))))
 
 (defconst geiser-chicken--prompt-regexp "#[^;]*;[^:0-9]*:?[0-9]+> ")
 
@@ -140,7 +140,7 @@ This function uses `geiser-chicken-init-file' if it exists."
   (case proc
     ((eval compile)
      (let ((form (mapconcat 'identity (cdr args) " "))
-          (module (if (car args) (concat "'" (car args)) "#f")))
+           (module (if (car args) (concat "'" (car args)) "#f")))
        (format "(geiser-eval %s '%s)" module form)))
     ((load-file compile-file)
      (format "(geiser-load-file %s)" (car args)))
@@ -187,7 +187,7 @@ This function uses `geiser-chicken-init-file' if it exists."
 (defun geiser-chicken--symbol-begin (module)
   (if module
       (max (save-excursion (beginning-of-line) (point))
-          (save-excursion (skip-syntax-backward "^(>") (1- (point))))
+           (save-excursion (skip-syntax-backward "^(>") (1- (point))))
     (save-excursion (skip-syntax-backward "^'-()>") (point))))