summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDan Leslie <dan@ironoxide.ca>2015-08-29 10:22:16 -0700
committerDan Leslie <dan@ironoxide.ca>2015-08-29 10:22:16 -0700
commit280902e4dbd68e3b74f0d2caa4963aa79e201095 (patch)
tree941007f42730ee9d330bad1bbae837b464c5b240
parent17331d7f58d257107ba8e64a3053bb6edda639f7 (diff)
downloadgeiser-chez-280902e4dbd68e3b74f0d2caa4963aa79e201095.tar.gz
geiser-chez-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.scm4
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)