Capture the raw continuation of the exception if evaluation fails
This commit is contained in:
parent
f8a30e3523
commit
c5447bc2cd
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue