summaryrefslogtreecommitdiff
path: root/scheme
diff options
context:
space:
mode:
Diffstat (limited to 'scheme')
-rw-r--r--scheme/chez/geiser/geiser.ss8
1 files changed, 4 insertions, 4 deletions
diff --git a/scheme/chez/geiser/geiser.ss b/scheme/chez/geiser/geiser.ss
index 70313ab..2d13952 100644
--- a/scheme/chez/geiser/geiser.ss
+++ b/scheme/chez/geiser/geiser.ss
@@ -55,10 +55,10 @@
(with-exception-handler
(lambda (e)
(k `((result "")
- (output . ,(get-output-string output-string))
- (error (key . ,(with-output-to-string
- (lambda ()
- (display-condition e))))))))
+ (output . ,(with-output-to-string
+ (lambda ()
+ (display-condition e))))
+ (error (key . chez-error-message)))))
(lambda ()
(call-with-values
;; evaluate form, allow for multiple return values,