summaryrefslogtreecommitdiff
path: root/scheme/chez/geiser
diff options
context:
space:
mode:
authorJay Xu <jay.xu.krfantasy@gmail.com>2020-07-11 20:58:52 +0800
committerJay Xu <jay.xu.krfantasy@gmail.com>2020-07-11 20:58:52 +0800
commit086dbba895bdc40347de1b0bff8f77d8f10192d6 (patch)
tree313661c78190e3260d9ad1ad15eb718cd58fcad2 /scheme/chez/geiser
parentfcb2a6ab8d1bd37ed36030d6e9cc81388761c465 (diff)
downloadgeiser-chez-086dbba895bdc40347de1b0bff8f77d8f10192d6.tar.gz
geiser-chez-086dbba895bdc40347de1b0bff8f77d8f10192d6.tar.bz2
make chez display output and error messages.
Diffstat (limited to 'scheme/chez/geiser')
-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,