Mercurial > repos > rhope

diff testpauseresume.rhope @ 140:c14698c512f1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Untested addition of Pause/Resume
author Mike Pavone <pavone@retrodev.com>
date Sat, 20 Nov 2010 20:03:25 +0000
parents
children f2cb85c53ced
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/testpauseresume.rhope	Sat Nov 20 20:03:25 2010 +0000
@@ -0,0 +1,20 @@
+
+Yield[:out]
+{
+	out <- Pause[Resume[?,0]]
+}
+
+Foo[:out]
+{
+	Print["Foo!"]
+}
+
+Main[:out]
+{
+	Call Async[Foo[?]]
+	{ Call Async[Foo[?]]
+	{ Call Async[Foo[?]]
+	{ Get Char[]
+	{ out <- Yield[] }
+}
+