Mercurial > repos > icfp2012

diff src/sim.tp @ 29:d9f1a063a466

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
interactive mode works
author William Morgan <bill@mrgn.org>
date Sat, 14 Jul 2012 20:14:58 -0700
parents 7a274d6026c8
children 031d46ff76a9
line wrap: on
line diff
--- a/src/sim.tp	Sat Jul 14 19:33:35 2012 -0700
+++ b/src/sim.tp	Sat Jul 14 20:14:58 2012 -0700
@@ -198,7 +198,11 @@
 	}
 	
 	getMove <- {
-		os read: 0 1
+		ret <- os read: 0 1
+		while: {ret = "\n"} do: {
+			ret <- os read: 0 1
+		}
+		ret
 	}
 
 	main <- :args {