Mercurial > repos > rhope

changeset 180:c40e0faa1c92

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add Call to Dict and List
author Mike Pavone <pavone@retrodev.com>
date Sun, 19 Jun 2011 10:43:11 -0700
parents 64be565a40c6
children a658c17148cb
files dict.rhope list.rhope
diffstat 2 files changed, 22 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/dict.rhope	Sat Jun 18 11:11:58 2011 -0700
+++ b/dict.rhope	Sun Jun 19 10:43:11 2011 -0700
@@ -328,3 +328,14 @@
 	}
 }
 
+Call@Dictionary[dict,index:out,notfound]
+{
+	out,notfound <- [dict]Index[index]
+}
+
+Call@Empty Dictionary[dict,index:out,notfound]
+{
+	notfound <- index
+}
+
+
--- 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]
+}
+