# HG changeset patch
# User Mike Pavone <pavone@retrodev.com>
# Date 1377571817 25200
# Node ID a868a2aec9302c1d737ed68dd63f930e081c5d87
# Parent  abde5d2918cf58aaeec39a8a3f939f53b61797d5
Add contains? method to linear dictionary

diff -r abde5d2918cf -r a868a2aec930 modules/dict.tp
--- a/modules/dict.tp	Mon Aug 26 19:50:02 2013 -0700
+++ b/modules/dict.tp	Mon Aug 26 19:50:17 2013 -0700
@@ -54,6 +54,10 @@
 				}
 			}
 
+			contains? <- :k {
+				(find: k) >= 0
+			}
+
 			foreach <- :l {
 				foreach: els :idx el {
 					l: (el key) (el val)