diff options
| -rw-r--r-- | elisp/geiser-connection.el | 1 | ||||
| -rw-r--r-- | elisp/geiser-eval.el | 1 | ||||
| -rw-r--r-- | scheme/chibi/geiser/geiser.scm | 16 |
3 files changed, 7 insertions, 11 deletions
diff --git a/elisp/geiser-connection.el b/elisp/geiser-connection.el index 560412f..510afe9 100644 --- a/elisp/geiser-connection.el +++ b/elisp/geiser-connection.el @@ -252,7 +252,6 @@ "Time limit, in msecs, blocking on synchronous evaluation requests") (defun geiser-con--send-string/wait (con str cont &optional timeout sbuf) - (message "lwf:g-c--s-s/w:%s" str) (save-current-buffer (let ((proc (and con (geiser-con--connection-process con)))) (unless proc (error "Geiser connection not active")) diff --git a/elisp/geiser-eval.el b/elisp/geiser-eval.el index c8059a6..6209dd3 100644 --- a/elisp/geiser-eval.el +++ b/elisp/geiser-eval.el @@ -161,7 +161,6 @@ module-exports, autodoc, callers, callees and generic-methods.") (and (listp ret) (or (assoc 'error ret) (assoc 'result ret)))) (defsubst geiser-eval--retort-result (ret) - (message "lwf:g-e--r-r:%s" ret) (let ((values (cdr (assoc 'result ret)))) (car (geiser-syntax--read-from-string (car values))))) 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 ) ) |