diff options
author | Dan Leslie <dan@ironoxide.ca> | 2015-08-29 10:22:16 -0700 |
---|---|---|
committer | Dan Leslie <dan@ironoxide.ca> | 2015-08-29 10:22:16 -0700 |
commit | 280902e4dbd68e3b74f0d2caa4963aa79e201095 (patch) | |
tree | 941007f42730ee9d330bad1bbae837b464c5b240 | |
parent | 17331d7f58d257107ba8e64a3053bb6edda639f7 (diff) | |
download | geiser-guile-280902e4dbd68e3b74f0d2caa4963aa79e201095.tar.gz geiser-guile-280902e4dbd68e3b74f0d2caa4963aa79e201095.tar.bz2 |
The issue arose with numerics, as well.
This change should fix it for most any input.
-rw-r--r-- | scheme/chicken/geiser/emacs.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/scheme/chicken/geiser/emacs.scm b/scheme/chicken/geiser/emacs.scm index 67f5449..03c5d97 100644 --- a/scheme/chicken/geiser/emacs.scm +++ b/scheme/chicken/geiser/emacs.scm @@ -229,7 +229,7 @@ (string-append "^([^#]+#)*" (regexp-escape prefix))) (define (describe-symbol sym #!key (exact? #f)) - (let* ((str (symbol->string sym)) + (let* ((str (->string sym)) (found (apropos-information-list (regexp (make-apropos-regex str)) #:macros? #t))) (delete-duplicates (if exact? @@ -339,7 +339,7 @@ ;; Builds a signature list from an identifier (define (find-signatures toplevel-module sym) - (define str (symbol->string sym)) + (define str (->string sym)) (define (make-module-list sym module-sym) (if (null? module-sym) |