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

coroutines: 4-space style.

John Benediktsson 2012-09-22 12:57:46 -07:00
parent 8b1a12fb8b
commit b85058351a
1 changed files with 27 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/coroutines/coroutines.factor
View File

@ -11,7 +11,8 @@ TUPLE: coroutine resumecc exitcc originalcc ;
: cocreate ( quot -- co ) : cocreate ( quot -- co )
coroutine new coroutine new
dup current-coro associate dup current-coro associate
[ swapd , , \ with-variables , [
swapd , , \ with-variables ,
"Coroutine has terminated illegally." , \ throw , "Coroutine has terminated illegally." , \ throw ,
] [ ] make ] [ ] make
[ >>resumecc ] [ >>originalcc ] bi ; [ >>resumecc ] [ >>originalcc ] bi ;