summaryrefslogtreecommitdiff
path: root/elisp/geiser-connection.el
diff options
context:
space:
mode:
authorDan Leslie <dan@ironoxide.ca>2015-12-02 21:47:23 -0800
committerDan Leslie <dan@ironoxide.ca>2015-12-05 06:52:05 -0800
commitea17fafe699430ffccd32b692ac3134d116c43f9 (patch)
tree1880362f71e544a34febea555554a1f973a1c4a6 /elisp/geiser-connection.el
parent83e866ace56cac49edc1c6ec4351fbbb9f7a274f (diff)
downloadgeiser-ea17fafe699430ffccd32b692ac3134d116c43f9.tar.gz
geiser-ea17fafe699430ffccd32b692ac3134d116c43f9.tar.bz2
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
Diffstat (limited to 'elisp/geiser-connection.el')
-rw-r--r--elisp/geiser-connection.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/elisp/geiser-connection.el b/elisp/geiser-connection.el
index e466cd3..8a3de31 100644
--- a/elisp/geiser-connection.el
+++ b/elisp/geiser-connection.el
@@ -202,7 +202,7 @@
`((error (key . geiser-debugger))
(output . ,answer))
(condition-case err
- (let ((start (string-match "((\\(?:result)?\\|error\\) " answer)))
+ (let ((start (string-match "((\\(?:result)?\\|error\\|Error\\) " answer)))
(or (and start (car (read-from-string answer start)))
`((error (key . retort-syntax)) (output . ,answer))))
(error `((error (key . geiser-con-error))