steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Save thread death errors

db4
Slava Pestov 2008-02-21 01:24:24 -06:00
parent 2f2242a1a3
commit 2342169d87
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
core/continuations/continuations.factor
View File

@ -110,11 +110,12 @@ PRIVATE>
SYMBOL: thread-error-hook SYMBOL: thread-error-hook
: rethrow ( error -- * ) : rethrow ( error -- * )
dup save-error
catchstack* empty? [ catchstack* empty? [
thread-error-hook get-global thread-error-hook get-global
[ 1 (throw) ] [ die ] if* [ 1 (throw) ] [ die ] if*
] when ] when
dup save-error c> continue-with ; c> continue-with ;
: recover ( try recovery -- ) : recover ( try recovery -- )
>r [ swap >c call c> drop ] curry r> ifcc ; inline >r [ swap >c call c> drop ] curry r> ifcc ; inline