Skip to content
Browse files

Fixed issues with unsafe procedures in base-exception-handler

  • Loading branch information...
1 parent 7747094 commit ad237ed2c85c6388e364279466565ffc44c7b366 @yome yome committed Jul 17, 2008
Showing with 4 additions and 3 deletions.
  1. +4 −3 termite.scm
View
7 termite.scm
@@ -80,7 +80,7 @@
;; Base exception handler for Termite processes.
(define (base-exception-handler e)
- (##continuation-capture
+ (continuation-capture
(lambda (k)
(let ((log-crash
(lambda (e)
@@ -89,11 +89,12 @@
(call-with-output-string ""
(lambda (port)
(display "#|\n" port)
- (##display-exception-in-context
+ (display-exception-in-context
e
k
port)
- (##cmd-b 0 k port)
+ ; todo: provide a safe wrapper in Gambit runtime?
+ (##cmd-b k port 0)
(display "|#\n" port)))))))
(cond
;; Propagated Termite exception?

0 comments on commit ad237ed

Please sign in to comment.
Something went wrong with that request. Please try again.