branch: elpa/geiser-chicken
commit eb21b79be37a8ae4839defb9da1165072fd4b665
Author: Dan Leslie <[email protected]>
Commit: Dan Leslie <[email protected]>
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
---
geiser/emacs.scm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/geiser/emacs.scm b/geiser/emacs.scm
index e4e84c0..67f5449 100644
--- a/geiser/emacs.scm
+++ b/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))
