From ee08bcf48cb6221295ae4b8663317a5320a6450b Mon Sep 17 00:00:00 2001 From: Drahflow Date: Thu, 6 Mar 2014 13:42:55 +0100 Subject: Tested *-based coroutines --- examples/working-compiler/coroutine4.test | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 examples/working-compiler/coroutine4.test (limited to 'examples/working-compiler/coroutine4.test') diff --git a/examples/working-compiler/coroutine4.test b/examples/working-compiler/coroutine4.test new file mode 100644 index 0000000..ab3f29c --- /dev/null +++ b/examples/working-compiler/coroutine4.test @@ -0,0 +1,18 @@ +{ ==caller ==data + "coroutine 1" dump data dump + data caller * =caller =data + "coroutine 2" dump data dump + data caller * =caller =data + "coroutine 3" dump data dump + data caller * +} !! ==cr + +"data" +cr * -- +"here 1" dump +cr * -- +"here 2" dump +cr * -- +"here 3" dump + +0 sys .exit -- cgit v1.2.3