# HG changeset patch
# User Mike Pavone <pavone@retrodev.com>
# Date 1375771037 25200
# Node ID a2d2d8e0929124689fb33e734943d203a2143b2a
# Parent  6f8d868e8da00de44c05e5f1c0c515b558ded0af# Parent  1157639353e773de034f5624d39e0dd21450262b
Merge

diff -r 1157639353e7 -r a2d2d8e09291 modules/sets.tp
--- 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)