[nongnu] elpa/geiser-chicken eb21b79 012/102: Fixes an issue where symbol->string was failing

[Philip Kaludercic]

branch: elpa/geiser-chicken
commit eb21b79be37a8ae4839defb9da1165072fd4b665
Author: Dan Leslie <dan@ironoxide.ca>
Commit: Dan Leslie <dan@ironoxide.ca>

    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))