diff options
| author | jao <jao@gnu.org> | 2022-10-09 04:11:25 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-10-09 04:11:40 +0100 |
| commit | 3bfa85afb9877d951e0082a2f249901d1f06974d (patch) | |
| tree | 6aeacc7a151c84bfe569199a97b6e98dbcc7de9e | |
| parent | 52fbf028e5cee83453a011e43daeab524a2fd9e6 (diff) | |
| download | geiser-chez-3bfa85afb9877d951e0082a2f249901d1f06974d.tar.gz geiser-chez-3bfa85afb9877d951e0082a2f249901d1f06974d.tar.bz2 | |
following the error reporting protocol now that geiser does too
| -rw-r--r-- | src/geiser/geiser.ss | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/geiser/geiser.ss b/src/geiser/geiser.ss index 3a5fc9f..e506a74 100644 --- a/src/geiser/geiser.ss +++ b/src/geiser/geiser.ss @@ -18,9 +18,10 @@ (lambda (e) (debug-condition e) ; save the condition for the debugger (k `((result "") - (output . ,(with-output-to-string - (lambda () (display-condition e)))) - (error (key . condition))))) + (output . ,(get-output-string output-string)) + (error (key . condition) + (msg . ,(with-output-to-string + (lambda () (display-condition e)))))))) (lambda () (call-with-values (lambda () |