From 2342169d87af5ba66ceee336e01fef436ca93657 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Thu, 21 Feb 2008 01:24:24 -0600
Subject: [PATCH] Save thread death errors

---
 core/continuations/continuations.factor | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/core/continuations/continuations.factor b/core/continuations/continuations.factor
index 4589ac90c4..a0aa59332e 100755
--- a/core/continuations/continuations.factor
+++ b/core/continuations/continuations.factor
@@ -110,11 +110,12 @@ PRIVATE>
 SYMBOL: thread-error-hook
 
 : rethrow ( error -- * )
+    dup save-error
     catchstack* empty? [
         thread-error-hook get-global
         [ 1 (throw) ] [ die ] if*
     ] when
-    dup save-error c> continue-with ;
+    c> continue-with ;
 
 : recover ( try recovery -- )
     >r [ swap >c call c> drop ] curry r> ifcc ; inline