[nongnu] elpa/geiser-chibi f52a4ec 16/38: Fix indenting and parenthesis positioning.

[Philip Kaludercic]

branch: elpa/geiser-chibi
commit f52a4ec3423889f9121dba91ab2e1b4092d10c4b
Author: Lockywolf <lockywolf@gmail.com>
Commit: Lockywolf <lockywolf@gmail.com>

    Fix indenting and parenthesis positioning.
---
 scheme/chibi/geiser/geiser.scm | 35 ++++++++++++++++-------------------
 1 file changed, 16 insertions(+), 19 deletions(-)

diff --git a/scheme/chibi/geiser/geiser.scm b/scheme/chibi/geiser/geiser.scm
index 9d80db1..f8d09ad 100644
--- a/scheme/chibi/geiser/geiser.scm
+++ b/scheme/chibi/geiser/geiser.scm
@@ -47,8 +47,6 @@
   (values))
 
 
-; (display "debug:Hello\n")
-
 (define (geiser:module-completions prefix . rest)
   ;; (available-modules) walks the directory tree and is too slow
   (let ((modules (map car *modules*)))
@@ -112,6 +110,8 @@
 (define (geiser:newline)
   #f)
 
+
+
 ;;> A chibi implementation of the standard geiser's location-making
 ;;> subroutine. \var{file} is a string representing file name with path,
 ;;> \var{line} is the line number starting from 0 (scheme way).
@@ -126,6 +126,8 @@
         (cons "line" (if (number? line) (+ 1 line) '())))
 )
 
+
+
 ;;> Finds symbol locations in source files. This version
 ;;> is very early preview and still has the following limitations:
 ;;> * It only works with exported symbols. (Even for current file).
@@ -193,22 +195,19 @@
                        (else (set-node->lcons/dirty-trick node))))
                #f)
            #f
-           )
-       )
-      )
-  )
+           ))))
 
 (define (lambda->lcons thingy)
-      (let* ((l-source (lambda-source thingy))
-            (l-location
-             (if (pair? l-source)
-                 (cons
-                  (car l-source)
-                  (cdr l-source))
-                 (let ()
-                   (display "Lambda with no source information.")
-                   (cons '() '())))))
-       l-location))
+  (let* ((l-source (lambda-source thingy))
+        (l-location
+         (if (pair? l-source)
+             (cons
+              (car l-source)
+              (cdr l-source))
+             (let ()
+               (display "Lambda with no source information.")
+               (cons '() '())))))
+    l-location))
 
 
 
@@ -240,9 +239,7 @@
          (cons l-filename l-lineno)))
     l-location)))
 
-;(geiser:symbol-location 'run-application)
-
-
+
 
 ;;> A function to find the file where the symbol
 ;;> \var{symbol-representing-module} is defined.