# HG changeset patch
# User Mike Pavone <pavone@retrodev.com>
# Date 1308505391 25200
# Node ID c40e0faa1c926c5c3e9dfe7648707f828085703c
# Parent  64be565a40c69a6689db582b4883077ae174f071
Add Call to Dict and List

diff -r 64be565a40c6 -r c40e0faa1c92 dict.rhope
--- 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
+}
+
+
diff -r 64be565a40c6 -r c40e0faa1c92 list.rhope
--- 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]
+}
+