Mercurial > repos > rhope

diff list.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 fa437d23bb24
children f4fc0a98088a
line wrap: on
line diff
--- a/list.rhope	Fri Aug 06 01:42:37 2010 -0400
+++ b/list.rhope	Mon Aug 09 02:03:57 2010 -0400
@@ -331,3 +331,25 @@
 	{ out <- _Print Seq[list, [list]First] }
 }
 
+
+Peek@List[list:out,empty]
+{
+	[list]Last
+	{
+		out <- [list]Index[~]
+	}{
+		empty <- list
+	}
+}
+
+Peek@List Leaf[list:out,empty]
+{
+	[list]Last
+	{
+		out <- [list]Index[~]
+	}{
+		empty <- list
+	}
+}
+
+