diff options
| author | Lockywolf <lockywolf@gmail.com> | 2019-08-06 09:45:14 +0800 |
|---|---|---|
| committer | Lockywolf <lockywolf@gmail.com> | 2019-08-06 09:45:14 +0800 |
| commit | 7ef02e25da30bf28a707f6eb6c5c533a42dd7dc0 (patch) | |
| tree | fc845aadac1cf7475ec4eb2a4888efc189d2e7a8 | |
| parent | 1881db7de8c1a0b2d2544dca8b755c6792c916c9 (diff) | |
| download | geiser-guile-7ef02e25da30bf28a707f6eb6c5c533a42dd7dc0.tar.gz geiser-guile-7ef02e25da30bf28a707f6eb6c5c533a42dd7dc0.tar.bz2 | |
Remove debug printing. Align par-style with geiser.
| -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 ) ) |