[nongnu] elpa/geiser-gambit 09734f0 20/34: Fix indentation

[Philip Kaludercic]

branch: elpa/geiser-gambit
commit 09734f0a8a8b15f1e117351b8390b377ee4cd54b
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    Fix indentation
---
 elisp/geiser-gambit.el                     | 26 +++++++++----------
 scheme/gambit/geiser/gambit.scm            | 40 +++++++++++++++---------------
 scheme/gambit/geiser/gambit_procedures.scm | 18 +++++++-------
 3 files changed, 42 insertions(+), 42 deletions(-)

diff --git a/elisp/geiser-gambit.el b/elisp/geiser-gambit.el
index a34cd49..2be8be8 100644
--- a/elisp/geiser-gambit.el
+++ b/elisp/geiser-gambit.el
@@ -36,8 +36,8 @@
 
 (eval-when-compile (require 'cl))
 
- (defconst geiser-gambit--builtin-keywords
-   '("##debug-repl" "##import" "define-macro" "##symbol-table" "##decompile"))
+(defconst geiser-gambit--builtin-keywords
+  '("##debug-repl" "##import" "define-macro" "##symbol-table" "##decompile"))
 
 ;;; Customization
 
@@ -213,8 +213,8 @@ If `t', Geiser will use `next-error' to jump to the error's 
location."
 
 ;;; Trying to ascertain whether a buffer is Gambit Scheme:
 
- (defconst geiser-gambit--guess-re
-   (regexp-opt (append '("gsi" "gambit") geiser-gambit--builtin-keywords)))
+(defconst geiser-gambit--guess-re
+  (regexp-opt (append '("gsi" "gambit") geiser-gambit--builtin-keywords)))
 
 (defun geiser-gambit--guess ()
   (save-excursion
@@ -228,8 +228,8 @@ If `t', Geiser will use `next-error' to jump to the error's 
location."
 
 ;;; Keywords and syntax
 
- (defun geiser-gambit--keywords ()
-   `(,geiser-gambit--builtin-keywords))
+(defun geiser-gambit--keywords ()
+  `(,geiser-gambit--builtin-keywords))
 
 (geiser-syntax--scheme-indent
  (receive 2)
@@ -301,7 +301,7 @@ If `t', Geiser will use `next-error' to jump to the error's 
location."
     (if (version< gambit-version "4.9.4")
         `( "-:d-" ,(expand-file-name "gambit/geiser/gambit.scm" 
geiser-scheme-dir) "-" )
       `("-:d-" "gambit/geiser" "-"))))
-    
+
 
 (defun connect-to-gambit ()
   "Start a Gambit REPL connected to a remote process."
@@ -309,12 +309,12 @@ If `t', Geiser will use `next-error' to jump to the 
error's location."
   (geiser-connect 'gambit))
 
 (defun geiser-gambit--startup (remote)
-    (compilation-setup t))
+  (compilation-setup t))
 ;;; Implementation definition:
 
 (define-geiser-implementation gambit
   (unsupported-procedures '(callers callees generic-methods
-                            module-location symbol-documentation))
+                                   module-location symbol-documentation))
   (binary geiser-gambit--binary)
   (arglist geiser-gambit--parameters)
   (version-command geiser-gambit--version)
@@ -324,13 +324,13 @@ If `t', Geiser will use `next-error' to jump to the 
error's location."
   (debugger-prompt-regexp geiser-gambit--debugger-prompt-regexp)
   (enter-debugger geiser-gambit--enter-debugger)
   (marshall-procedure geiser-gambit--geiser-procedure)
-;;  (find-module geiser-gambit--get-module)
-;;  (enter-command geiser-gambit--enter-command)
+  ;;  (find-module geiser-gambit--get-module)
+  ;;  (enter-command geiser-gambit--enter-command)
   (exit-command geiser-gambit--exit-command)
-;;  (import-command geiser-gambit--import-command)
+  ;;  (import-command geiser-gambit--import-command)
   (find-symbol-begin geiser-gambit--symbol-begin)
   (display-error geiser-gambit--display-error)
-;;  (external-help geiser-gambit--external-help)
+  ;;  (external-help geiser-gambit--external-help)
   (check-buffer geiser-gambit--guess)
   (keywords geiser-gambit--keywords)
   (case-sensitive geiser-gambit-case-sensitive-p))
diff --git a/scheme/gambit/geiser/gambit.scm b/scheme/gambit/geiser/gambit.scm
index c3cedc4..9d09309 100644
--- a/scheme/gambit/geiser/gambit.scm
+++ b/scheme/gambit/geiser/gambit.scm
@@ -42,7 +42,7 @@
          (geiser:autodoc (cdr ids)))
         (else
          (geiser:new-autodoc (car ids)))))
-         ;;(list (##procedure-search (car ids))))))
+;;(list (##procedure-search (car ids))))))
 
 ;; (cadr (##decompile method)) format is
 ;;(#!optional (param1 (macro-absent-obj)) (param2 (macro-absent-obj)) #!rest 
others)
@@ -144,29 +144,29 @@
 ;; sorting algorithms
 (define (sort-list l <?)
 
-   (define (mergesort l)
+  (define (mergesort l)
 
-     (define (merge l1 l2)
-       (cond ((null? l1) l2)
-             ((null? l2) l1)
-             (else
-              (let ((e1 (car l1)) (e2 (car l2)))
-                (if (<? e1 e2)
-                  (cons e1 (merge (cdr l1) l2))
-                  (cons e2 (merge l1 (cdr l2))))))))
+    (define (merge l1 l2)
+      (cond ((null? l1) l2)
+            ((null? l2) l1)
+            (else
+             (let ((e1 (car l1)) (e2 (car l2)))
+               (if (<? e1 e2)
+                   (cons e1 (merge (cdr l1) l2))
+                   (cons e2 (merge l1 (cdr l2))))))))
 
-     (define (split l)
-       (if (or (null? l) (null? (cdr l)))
-         l
-         (cons (car l) (split (cddr l)))))
+    (define (split l)
+      (if (or (null? l) (null? (cdr l)))
+          l
+          (cons (car l) (split (cddr l)))))
 
-     (if (or (null? l) (null? (cdr l)))
-       l
-       (let* ((l1 (mergesort (split l)))
-              (l2 (mergesort (split (cdr l)))))
-         (merge l1 l2))))
+    (if (or (null? l) (null? (cdr l)))
+       l
+       (let* ((l1 (mergesort (split l)))
+               (l2 (mergesort (split (cdr l)))))
+          (merge l1 l2))))
 
-   (mergesort l))
+  (mergesort l))
 
 ;; the majority of gambit and r5rs procedures correctly formatted
 (define gambit-procedures
diff --git a/scheme/gambit/geiser/gambit_procedures.scm 
b/scheme/gambit/geiser/gambit_procedures.scm
index 0b17e86..87ed520 100644
--- a/scheme/gambit/geiser/gambit_procedures.scm
+++ b/scheme/gambit/geiser/gambit_procedures.scm
@@ -65,11 +65,11 @@
  (call-with-current-continuation
   ("args" (("required" "{proc}") ("optional") ("key")))("module"))
  (call-with-input-file
-  ("args" (("required" "{string} {proc}") ("optional") ("key")))("module"))
+     ("args" (("required" "{string} {proc}") ("optional") ("key")))("module"))
  (call-with-output-file
-  ("args" (("required" "{string} {proc}") ("optional") ("key")))("module"))
+     ("args" (("required" "{string} {proc}") ("optional") ("key")))("module"))
  (call-with-values
-  ("args" (("required" "{producer} {consumer}") ("optional") 
("key")))("module"))
+     ("args" (("required" "{producer} {consumer}") ("optional") 
("key")))("module"))
  (car ("args" (("required" "{pair}") ("optional") ("key")))("module"))
  (case ("args"
         (("required" "{key} {clause1} {clause2}  [...]")
@@ -197,7 +197,7 @@
        ("optional")
        ("key")))("module"))
  (dynamic-wind
-  ("args" (("required" "{before} {thunk} {after}") ("optional") 
("key")))("module"))
+   ("args" (("required" "{before} {thunk} {after}") ("optional") 
("key")))("module"))
  (eof-object? ("args" (("required" "{obj}") ("optional") ("key")))("module"))
  (eq? ("args" (("required" "{obj1} {obj2}") ("optional") ("key")))("module"))
  (eq?-hash ("args" (("required" "{obj}") ("optional") ("key")))("module"))
@@ -433,7 +433,7 @@
  (let-syntax ("args" (("required" "{bindings} {body}") ("optional") 
("key")))("module"))
  (letrec ("args" (("required" "{bindings} {body}") ("optional") 
("key")))("module"))
  (letrec-syntax
-  ("args" (("required" "{bindings} {body}") ("optional") ("key")))("module"))
+     ("args" (("required" "{bindings} {body}") ("optional") 
("key")))("module"))
  (link-flat
   ("args"
    (("required"
@@ -912,13 +912,13 @@
  (with-exception-catcher
   ("args" (("required" "{handler} {thunk}") ("optional") ("key")))("module"))
  (with-exception-handler
-  ("args" (("required" "{handler} {thunk}") ("optional") ("key")))("module"))
+     ("args" (("required" "{handler} {thunk}") ("optional") 
("key")))("module"))
  (with-input-from-file
-  ("args" (("required" "{string} {thunk}") ("optional") ("key")))("module"))
+     ("args" (("required" "{string} {thunk}") ("optional") ("key")))("module"))
  (with-input-from-port
-  ("args" (("required" "{port} {thunk}") ("optional") ("key")))("module"))
+     ("args" (("required" "{port} {thunk}") ("optional") ("key")))("module"))
  (with-output-to-file
-  ("args" (("required" "{string} {thunk}") ("optional") ("key")))("module"))
+     ("args" (("required" "{string} {thunk}") ("optional") ("key")))("module"))
  (write ("args" (("required" "{obj} [{port}]") ("optional") 
("key")))("module"))
  (write ("args" (("required" "{obj} {port}") ("optional") ("key")))("module"))
  (write ("args" (("required" "{obj}") ("optional") ("key")))("module"))