From 086dbba895bdc40347de1b0bff8f77d8f10192d6 Mon Sep 17 00:00:00 2001 From: Jay Xu Date: Sat, 11 Jul 2020 20:58:52 +0800 Subject: make chez display output and error messages. --- scheme/chez/geiser/geiser.ss | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'scheme/chez/geiser/geiser.ss') 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, -- cgit v1.2.3