From 7ef02e25da30bf28a707f6eb6c5c533a42dd7dc0 Mon Sep 17 00:00:00 2001 From: Lockywolf Date: Tue, 6 Aug 2019 09:45:14 +0800 Subject: Remove debug printing. Align par-style with geiser. --- scheme/chibi/geiser/geiser.scm | 16 +++++++--------- 1 file changed, 7 insertions(+), 9 deletions(-) (limited to 'scheme/chibi/geiser') 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 ) ) -- cgit v1.2.3