From 3bfa85afb9877d951e0082a2f249901d1f06974d Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sun, 9 Oct 2022 04:11:25 +0100
Subject: following the error reporting protocol now that geiser does too

---
 src/geiser/geiser.ss | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'src/geiser/geiser.ss')

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 ()
-- 
cgit v1.2.3