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