coroutines: 4-space style.

extra/coroutines/coroutines.factor

@@ -9,43 +9,44 @@ SYMBOL: current-coro
 TUPLE: coroutine resumecc exitcc originalcc ;
 
 : cocreate ( quot -- co )
-  coroutine new
+    coroutine new
-  dup current-coro associate
+    dup current-coro associate
-  [ swapd , , \ with-variables , 
+    [
-    "Coroutine has terminated illegally." , \ throw ,
+        swapd , , \ with-variables , 
-  ] [ ] make
+        "Coroutine has terminated illegally." , \ throw ,
-  [ >>resumecc ] [ >>originalcc ] bi ;
+    ] [ ] make
+    [ >>resumecc ] [ >>originalcc ] bi ;
 
 : coresume ( v co -- result )
-  [ 
+    [
-    >>exitcc
+        >>exitcc
-    resumecc>> call( -- )
+        resumecc>> call( -- )
-    #! At this point, the coroutine quotation must have terminated
+        #! At this point, the coroutine quotation must have terminated
-    #! normally (without calling coyield, coreset, or coterminate).
+        #! normally (without calling coyield, coreset, or coterminate).
-    #! This shouldn't happen.
+        #! This shouldn't happen.
-    f over
+        f over
-  ] callcc1 2nip ;
+    ] callcc1 2nip ;
 
 : coresume* ( v co -- ) coresume drop ; inline
 : *coresume ( co -- result ) f swap coresume ; inline
 
 : coyield ( v -- result )
-  current-coro get
+    current-coro get
-  [  
+    [
-    [ continue-with ] curry
+        [ continue-with ] curry
-    >>resumecc
+        >>resumecc
-    exitcc>> continue-with
+        exitcc>> continue-with
-  ] callcc1 2nip ;
+    ] callcc1 2nip ;
 
 : coyield* ( v -- ) coyield drop ; inline
 : *coyield ( -- v ) f coyield ; inline
 
 : coterminate ( v -- )
-  current-coro get
+    current-coro get
-  [ ] >>resumecc
+    [ ] >>resumecc
-  exitcc>> continue-with ;
+    exitcc>> continue-with ;
 
 : coreset ( v --  )
-  current-coro get dup
+    current-coro get dup
-  originalcc>> >>resumecc
+    originalcc>> >>resumecc
-  exitcc>> continue-with ;
+    exitcc>> continue-with ;