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

add polymorphic stack effects to continuations:recover, attempt-all

db4
Joe Groff 2010-03-08 18:28:19 -08:00
parent 0f8d77952b
commit cb656c6e6b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/continuations/continuations.factor
View File

@ -119,7 +119,7 @@ SYMBOL: thread-error-hook
] when ] when
c> continue-with ; c> continue-with ;
: recover ( try recovery -- ) : recover ( ..a try: ( ..a -- ..b ) recovery: ( ..a error -- ..b ) -- ..b )
[ [ swap >c call c> drop ] curry ] dip ifcc ; inline [ [ swap >c call c> drop ] curry ] dip ifcc ; inline
: ignore-errors ( quot -- ) : ignore-errors ( quot -- )
@ -130,7 +130,7 @@ SYMBOL: thread-error-hook
ERROR: attempt-all-error ; ERROR: attempt-all-error ;
: attempt-all ( seq quot -- obj ) : attempt-all ( ... seq quot: ( ... elt -- ... obj ) -- ... obj )
over empty? [ over empty? [
attempt-all-error attempt-all-error
] [ ] [