From c5447bc2cdca54564cfc0a15314a6eee4c0fa7bb Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Tue, 24 May 2005 13:56:41 +0000
Subject: [PATCH] Capture the raw continuation of the exception if evaluation
 fails

---
 scheme/nuit-engine.scm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/scheme/nuit-engine.scm b/scheme/nuit-engine.scm
index a21c3c0..3647747 100644
--- a/scheme/nuit-engine.scm
+++ b/scheme/nuit-engine.scm
@@ -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