[nongnu] elpa/geiser-chibi b260b6d 09/38: Remove debug printing. Align par-style with geiser.

[Philip Kaludercic]

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

    Remove debug printing. Align par-style with geiser.
---
 scheme/chibi/geiser/geiser.scm | 16 +++++++---------
 1 file changed, 7 insertions(+), 9 deletions(-)

diff --git a/scheme/chibi/geiser/geiser.scm b/scheme/chibi/geiser/geiser.scm
index 6ba3edd..94f745a 100644
--- a/scheme/chibi/geiser/geiser.scm
+++ b/scheme/chibi/geiser/geiser.scm
@@ -93,8 +93,6 @@
 
 (define (geiser:newline)
   #f)
-;(define (geiser:symbol-location)
-                                       ;  '("geiser-chibi-error" "Not 
implemented"))
 
 ;;> A chibi implementation of the standard geiser's location-making
 ;;> subrouting. \var{file} is a string representing file name with path,
@@ -104,6 +102,11 @@
   (list (cons "file" (if (string? file) file '()))
         (cons "line" (if (number? line) (+ 1 line) '()))))
 
+
+;TODO: (define (geiser:symbol-location) ; implement this method in order to 
make
+; xref work better in Chibi. For reference, see [[geiser:module-location]]
+
+
 ;;> A function to find the file where the symbol
 ;;> \var{symbol-representing-module} is defined.
 
@@ -112,10 +115,5 @@
    (find-module-file
     (module-name->file
      (module-name
-      (find-module symbol-representing-module)
-     )
-    )
-   )
-  0
- )
-)
+      (find-module symbol-representing-module))))
+   0 ) )