diff options
| author | Dan Leslie <dan@ironoxide.ca> | 2015-08-29 10:01:16 -0700 |
|---|---|---|
| committer | Dan Leslie <dan@ironoxide.ca> | 2015-08-29 10:01:16 -0700 |
| commit | 17331d7f58d257107ba8e64a3053bb6edda639f7 (patch) | |
| tree | f6d5465eb3e07c47d173165222070dd9790cc38a /scheme/chicken | |
| parent | 334db07445e9594632c7270587c4503ec8713967 (diff) | |
| download | geiser-guile-17331d7f58d257107ba8e64a3053bb6edda639f7.tar.gz geiser-guile-17331d7f58d257107ba8e64a3053bb6edda639f7.tar.bz2 | |
Fixes an issue where symbol->string was failing
In some instances apropos-information-list returns a string and not a
list of symbols; this is the case for Chicken's builtins, like C_plus.
IE, the following would fail:
(geiser-autodoc #f '(+))
This fixes jaor/geiser#72
Diffstat (limited to 'scheme/chicken')
| -rw-r--r-- | scheme/chicken/geiser/emacs.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/scheme/chicken/geiser/emacs.scm b/scheme/chicken/geiser/emacs.scm index e4e84c0..67f5449 100644 --- a/scheme/chicken/geiser/emacs.scm +++ b/scheme/chicken/geiser/emacs.scm @@ -375,7 +375,7 @@ (args (if (or (list? rest) (pair? rest)) (cdr rest) '()))) (define (clean-arg arg) - (string->symbol (string-substitute "(.*[^0-9]+)[0-9]+" "\\1" (symbol->string arg)))) + (string->symbol (string-substitute "(.*[^0-9]+)[0-9]+" "\\1" (->string arg)))) (define (collect-args args #!key (reqs? #t) (opts? #f) (keys? #f)) (when (not (null? args)) |