coroutines: 4-space style.

2012-09-22 12:57:46 -07:00 · 2012-09-22 12:57:46 -07:00 · b85058351a
parent 8b1a12fb8b
commit b85058351a
1 changed files with 27 additions and 26 deletions
--- a/extra/coroutines/coroutines.factor
+++ b/extra/coroutines/coroutines.factor
@ -11,7 +11,8 @@ TUPLE: coroutine resumecc exitcc originalcc ;
 : cocreate ( quot -- co )
    coroutine new
    dup current-coro associate
-  [ swapd , , \ with-variables , 
+    [
+        swapd , , \ with-variables , 
        "Coroutine has terminated illegally." , \ throw ,
    ] [ ] make
    [ >>resumecc ] [ >>originalcc ] bi ;