changeset 126:a2d2d8e09291

Merge
author Mike Pavone <pavone@retrodev.com>
date Mon, 05 Aug 2013 23:37:17 -0700
parents 6f8d868e8da0 (diff) 1157639353e7 (current diff)
children 2b25d0ce2946
files modules/sets.tp
diffstat 1 files changed, 3 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/modules/sets.tp	Mon Aug 05 21:38:38 2013 -0700
+++ b/modules/sets.tp	Mon Aug 05 23:37:17 2013 -0700
@@ -7,6 +7,7 @@
 		hashdiffs <- #[0]
 		#{
 			buckets <- #[empty empty empty empty]
+			size <- 0
 			contains? <- :object {
 				hv <- object hash
 				
@@ -71,11 +72,13 @@
 						hashdiffs append: (0 - lastdiff)
 					}
 					newbucks <- #[]
+					newbucks resize: newsize
 					while: { (newbucks length) < newsize } do: {
 						newbucks append: empty
 					}
 					oldbucks <- buckets
 					buckets <- newbucks
+					size <- 0
 					foreach: oldbucks :idx el {
 						if: (not: (el empty?)) {
 							addHash: (el v)