# HG changeset patch
# User Mike Pavone <pavone@retrodev.com>
# Date 1343371314 25200
# Node ID 094227f2f64e2c233c9be3f3abe687048e730de6
# Parent  59a94f3ad56f47157ef6c4ea5421a98830b2a5fb# Parent  6735db9b44ba62d420cc6b5a3110b11634d01e16
Merge

diff -r 59a94f3ad56f -r 094227f2f64e modules/dict.tp
--- a/modules/dict.tp	Thu Jul 26 23:40:56 2012 -0700
+++ b/modules/dict.tp	Thu Jul 26 23:41:54 2012 -0700
@@ -42,6 +42,13 @@
 					(els get: idx) val
 				}
 			}
+			
+			foreach <- :l {
+				foreach: els :idx el {
+					l: (el key) (el val)
+				}
+			}
+
 		}
 	}
 
diff -r 59a94f3ad56f -r 094227f2f64e samples/testdict.tp
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/samples/testdict.tp	Thu Jul 26 23:41:54 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"
+		}
+
+	}
+}