Mercurial > repos > rhope

diff kernel.rhope @ 100:f51c4c17457c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Broken port of parser to compiler
author Mike Pavone <pavone@retrodev.com>
date Mon, 09 Aug 2010 02:03:57 -0400
parents e09c2d1d6d5b
children f4fc0a98088a
line wrap: on
line diff
--- a/kernel.rhope	Fri Aug 06 01:42:37 2010 -0400
+++ b/kernel.rhope	Mon Aug 09 02:03:57 2010 -0400
@@ -310,3 +310,11 @@
 	out <- Fold[_Keys[?], (), container]
 }
 
+Between[num,low,high:yep,nope]
+{
+	,nope <- If[[num]>[low]]
+	{
+		yep,nope <- If[[num]<[high]]
+	}
+}
+