scsh-conservatory
/
commander-s
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
scheme/nuit-engine.scm
View File

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