Changes in tests/coroutine/suspend_then.cfa [dfa4360:5b11c25]

File:

• tests/coroutine/suspend_then.cfa (modified) (1 diff)

tests/coroutine/suspend_then.cfa

@@ -15 +15 @@
 
 #include <fstream.hfa>
+#include <coroutine.hfa>
 
-generator Fibonacci {
-        int fn;                                                                         // used for communication
-        int fn1, fn2;                                                           // retained between resumes
-};
+void then() {
+        sout | "Then!";
+}
+
+coroutine Fibonacci { int fn; };                                                // used for communication
 
 void main( Fibonacci & fib ) with( fib ) {                              // called on first resume
+        int fn1, fn2;                                                           // retained between resumes
         fn = 0;  fn1 = fn;                                                      // 1st case
-        suspend { sout | "Then!"; }                                             // restart last resume
+        suspend_then(then);                                                     // restart last resume
         fn = 1;  fn2 = fn1;  fn1 = fn;                                  // 2nd case
-        suspend { sout | "Then!"; }                                             // restart last resume
+        suspend_then(then);                                                     // restart last resume
         for () {
                 fn = fn1 + fn2;  fn2 = fn1;  fn1 = fn;                  // general case
-                suspend { sout | "Then!"; }                                     // restart last resume
+                suspend_then(then);                                             // restart last resume
         } // for
 }