diff options
| -rw-r--r-- | scheme/chibi/geiser/geiser.scm | 35 |
1 files 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. |