summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/geiser/geiser.ss11
1 files changed, 7 insertions, 4 deletions
diff --git a/src/geiser/geiser.ss b/src/geiser/geiser.ss
index 478b9af..afa58c3 100644
--- a/src/geiser/geiser.ss
+++ b/src/geiser/geiser.ss
@@ -54,11 +54,14 @@
(lambda (k)
(with-exception-handler
(lambda (e)
+ (debug-condition e) ; save the condition for the debugger
(k `((result "")
- (output . ,(with-output-to-string
- (lambda ()
- (display-condition e))))
- (error (key . chez-error-message)))))
+ (output . ,(format "~a~%~a"
+ (get-output-string output-string)
+ (with-output-to-string
+ (lambda ()
+ (display-condition e)))))
+ (error (key . geiser-debugger)))))
(lambda ()
(call-with-values
;; evaluate form, allow for multiple return values,