[nongnu] elpa/geiser-chicken 9b9b180 039/102: Fixes for Literals, Errors and Modules

[Philip Kaludercic]

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

    Fixes for Literals, Errors and Modules
    
    If literals were present chicken wouldn't provide any autodocumentation
    due to an error. Module evaluation was failing due to poor
    input. Chicken's Error output was failing to parse
    
    - Filter out all non-symbols from the autodoc set
    - Properly escape module names
    - Add "Error" to the set of accepted error prefixes
---
 elisp/geiser-chicken.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/elisp/geiser-chicken.el b/elisp/geiser-chicken.el
index a68ab7b..88d60cf 100644
--- a/elisp/geiser-chicken.el
+++ b/elisp/geiser-chicken.el
@@ -143,8 +143,9 @@ This function uses `geiser-chicken-init-file' if it exists."
 (defun geiser-chicken--geiser-procedure (proc &rest args)
   (case proc
     ((eval compile)
-     (let ((form (mapconcat 'identity (cdr args) " ")))
-       (format "(geiser-eval %s '%s)" (or (car args) "#f") form)))
+     (let ((form (mapconcat 'identity (cdr args) " "))
+          (module (if (car args) (concat "'" (car args)) "#f")))
+       (format "(geiser-eval %s '%s)" module form)))
     ((load-file compile-file)
      (format "(geiser-load-file %s)" (car args)))
     ((no-values)