diff list.rhope @ 180:c40e0faa1c92

Add Call to Dict and List
author Mike Pavone <pavone@retrodev.com>
date Sun, 19 Jun 2011 10:43:11 -0700
parents 64be565a40c6
children
line wrap: on
line diff
--- a/list.rhope	Sat Jun 18 11:11:58 2011 -0700
+++ b/list.rhope	Sun Jun 19 10:43:11 2011 -0700
@@ -442,3 +442,14 @@
 {
 	out <- _=List[a,b]
 }
+
+Call@List[list,index:out,notfound]
+{
+	out,notfound <- [list]Index[index]
+}
+
+Call@List Leaf[list,index:out,notfound]
+{
+	out,notfound <- [list]Index[index]
+}
+