Mercurial > repos > rhope

diff testpauseresume.rhope @ 141:f2cb85c53ced

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix Pause/Resume and rewrite Call Async in Rhope rather than C
author Mike Pavone <pavone@retrodev.com>
date Sat, 20 Nov 2010 17:48:22 -0500
parents c14698c512f1
children
line wrap: on
line diff
--- a/testpauseresume.rhope	Sat Nov 20 20:03:25 2010 +0000
+++ b/testpauseresume.rhope	Sat Nov 20 17:48:22 2010 -0500
@@ -1,20 +1,16 @@
-
-Yield[:out]
-{
-	out <- Pause[Resume[?,0]]
-}
 
 Foo[:out]
 {
-	Print["Foo!"]
+	a <- Yield[]
+	Val[a]
+	{ out <- Print["Foo!"] }
 }
 
 Main[:out]
 {
 	Call Async[Foo[?]]
-	{ Call Async[Foo[?]]
-	{ Call Async[Foo[?]]
-	{ Get Char[]
+	{ got char <- Get Char[] }
+	Val[got char]
 	{ out <- Yield[] }
 }