[nongnu] elpa/geiser-chez 146d4a7 18/37: Fix indentation

[Philip Kaludercic]

branch: elpa/geiser-chez
commit 146d4a70df9ea6ca264899a5f0c0a5bb3cf7463f
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    Fix indentation
---
 elisp/geiser-chez.el         |  2 +-
 scheme/chez/geiser/geiser.ss | 10 +++++-----
 scheme/chez/geiser/test.ss   | 10 +++++-----
 3 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/elisp/geiser-chez.el b/elisp/geiser-chez.el
index 8eabae6..c1bdde7 100644
--- a/elisp/geiser-chez.el
+++ b/elisp/geiser-chez.el
@@ -68,7 +68,7 @@ This function uses `geiser-chez-init-file' if it exists."
            (module (cond ((string-equal "'()" (car args))
                           "'()")
                          ((and (car args))
-                             (concat "'" (car args)))
+                          (concat "'" (car args)))
                          (t
                           "#f"))))
        (format "(geiser:eval %s '%s)" module form)))
diff --git a/scheme/chez/geiser/geiser.ss b/scheme/chez/geiser/geiser.ss
index 5c92a5b..70313ab 100644
--- a/scheme/chez/geiser/geiser.ss
+++ b/scheme/chez/geiser/geiser.ss
@@ -4,21 +4,21 @@
           geiser:module-completions
           geiser:autodoc
           geiser:no-values
-         geiser:load-file
+          geiser:load-file
           geiser:newline
           geiser:macroexpand)
   (import (chezscheme))
 
   (define (last-index-of str-list char idx last-idx)
     (if (null? str-list)
-       last-idx
-       (last-index-of (cdr str-list) char (+ 1 idx) (if (char=? char (car 
str-list)) idx last-idx))))
+        last-idx
+        (last-index-of (cdr str-list) char (+ 1 idx) (if (char=? char (car 
str-list)) idx last-idx))))
 
   (define (obj-file-name name)
     (let ((idx (last-index-of (string->list name) #\. 0 -1)))
       (if (= idx -1)
-         (string-append name ".so")
-         (string-append (substring name 0 idx) ".so"))))
+          (string-append name ".so")
+          (string-append (substring name 0 idx) ".so"))))
 
   (define (geiser:load-file filename)
     (let ((output-filename (obj-file-name filename)))
diff --git a/scheme/chez/geiser/test.ss b/scheme/chez/geiser/test.ss
index 21f3396..a0259e1 100644
--- a/scheme/chez/geiser/test.ss
+++ b/scheme/chez/geiser/test.ss
@@ -1,5 +1,5 @@
 (import (geiser)
-       (chezscheme))
+        (chezscheme))
 
 (define-syntax assert-equal
   (syntax-rules ()
@@ -77,10 +77,10 @@
 ;;    [(x1 x2 x3) (+ (+ x1 x2) x3)]
 ;;    [(x1 x2 . rest)
 ;;     ((letrec ([loop (lambda (x1 x2 rest)
-;;                   (let ([x (+ x1 x2)])
-;;                     (if (null? rest)
-;;                         x
-;;                         (loop x (car rest) (cdr rest)))))])
+;;                    (let ([x (+ x1 x2)])
+;;                      (if (null? rest)
+;;                          x
+;;                          (loop x (car rest) (cdr rest)))))])
 ;;        loop)
 ;;      x1
 ;;      x2