summaryrefslogtreecommitdiff
path: root/elisp
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
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')
-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))