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

Continuations fix

release
Slava Pestov 2007-10-03 17:35:48 -04:00
parent 5537caa4cd
commit e950e03c99
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
core/continuations/continuations.factor
View File

@ -20,6 +20,10 @@ SYMBOL: restarts
: (catch) ( quot -- newquot ) : (catch) ( quot -- newquot )
[ swap >c call c> drop ] curry ; inline [ swap >c call c> drop ] curry ; inline
: dummy
#! Defeat an optimization.
f ;
PRIVATE> PRIVATE>
: catchstack ( -- catchstack ) catchstack* clone ; inline : catchstack ( -- catchstack ) catchstack* clone ; inline
@ -60,7 +64,7 @@ C: <continuation> continuation
#! ( value f r:capture r:restore ) #! ( value f r:capture r:restore )
#! Execution begins right after the call to 'continuation'. #! Execution begins right after the call to 'continuation'.
#! The 'restore' branch is taken. #! The 'restore' branch is taken.
>r >r f continuation r> r> ?if ; inline >r >r dummy continuation r> r> ?if ; inline
: callcc0 ( quot -- ) [ drop ] ifcc ; inline : callcc0 ( quot -- ) [ drop ] ifcc ; inline