changeset 192:a868a2aec930

Add contains? method to linear dictionary
author Mike Pavone <pavone@retrodev.com>
date Mon, 26 Aug 2013 19:50:17 -0700
parents abde5d2918cf
children 4293c725394c
files modules/dict.tp
diffstat 1 files changed, 4 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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)