# HG changeset patch
# User William Morgan <bill@mrgn.org>
# Date 1343116860 25200
# Node ID 6735db9b44ba62d420cc6b5a3110b11634d01e16
# Parent  46504d34cb44e124595f1fe70645c61b2c2b7775
Fixed my foreach on dict.  Added test for it.

diff -r 46504d34cb44 -r 6735db9b44ba modules/dict.tp
--- a/modules/dict.tp	Tue Jul 24 00:35:24 2012 -0700
+++ b/modules/dict.tp	Tue Jul 24 01:01:00 2012 -0700
@@ -45,9 +45,10 @@
 			
 			foreach <- :l {
 				foreach: els :idx el {
-					l: (el k) (el v)
+					l: (el key) (el val)
 				}
 			}
+
 		}
 	}
 
diff -r 46504d34cb44 -r 6735db9b44ba samples/testdict.tp
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/samples/testdict.tp	Tue Jul 24 01:01:00 2012 -0700
@@ -0,0 +1,11 @@
+#{
+	main <- {
+		foo <- dict linear:
+		foo set: "key1" "val1"
+		foo set: "key2" "val2"
+		foreach: foo :k :v {
+			print: k . ", " . v . "\n"
+		}
+
+	}
+}