From 676307d3cc203f3a5e583cdc96c37c7821f79452 Mon Sep 17 00:00:00 2001
From: Drahflow <drahflow@gmx.de>
Date: Tue, 18 Feb 2014 18:07:19 +0100
Subject: Coroutines.

---
 examples/working-compiler/coroutine.test | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 examples/working-compiler/coroutine.test

(limited to 'examples/working-compiler/coroutine.test')

diff --git a/examples/working-compiler/coroutine.test b/examples/working-compiler/coroutine.test
new file mode 100644
index 0000000..9b5a6ef
--- /dev/null
+++ b/examples/working-compiler/coroutine.test
@@ -0,0 +1,18 @@
+{ ==caller ==data
+  "coroutine 1" dump data dump
+  data caller 1 ! =caller =data
+  "coroutine 2" dump data dump
+  data caller 1 ! =caller =data
+  "coroutine 3" dump data dump
+  data caller 1 !
+} !! ==cr
+
+"data"
+cr 1 ! --
+"here 1" dump
+cr 1 ! --
+"here 2" dump
+cr 1 ! --
+"here 3" dump
+
+0 sys .exit
-- 
cgit v1.2.3