diff options
| author | Dan Leslie <dan@ironoxide.ca> | 2015-12-02 21:47:23 -0800 |
|---|---|---|
| committer | Dan Leslie <dan@ironoxide.ca> | 2015-12-05 06:52:05 -0800 |
| commit | ea17fafe699430ffccd32b692ac3134d116c43f9 (patch) | |
| tree | 1880362f71e544a34febea555554a1f973a1c4a6 | |
| parent | 83e866ace56cac49edc1c6ec4351fbbb9f7a274f (diff) | |
| download | geiser-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
| -rw-r--r-- | elisp/geiser-connection.el | 2 |
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)) |