Capture the raw continuation of the exception if evaluation fails

This commit is contained in:
mainzelm 2005-05-24 13:56:41 +00:00
parent f8a30e3523
commit c5447bc2cd
1 changed files with 5 additions and 4 deletions

View File

@ -617,10 +617,11 @@
(define eval-expression
(let ((env (init-evaluation-environment 'nuit-eval)))
(lambda (exp)
(with-fatal-error-handler
(lambda (condition more)
(cons 'error condition))
(eval (read-sexp-from-string exp) env)))))
(with-fatal-and-capturing-error-handler
(lambda (condition continuation decline)
continuation)
(lambda ()
(eval (read-sexp-from-string exp) env))))))
(define (post-message plugin message)
(cond