aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/lux/data/coll/dict.lux4
1 files changed, 3 insertions, 1 deletions
diff --git a/stdlib/source/lux/data/coll/dict.lux b/stdlib/source/lux/data/coll/dict.lux
index 87a40b745..72a549759 100644
--- a/stdlib/source/lux/data/coll/dict.lux
+++ b/stdlib/source/lux/data/coll/dict.lux
@@ -240,6 +240,8 @@
## When #Base nodes grow too large, they're promoted to #Hierarchy to
## add some depth to the tree and help keep it's balance.
+(def: hierarchy-indices (List Index) (indices-for hierarchy-nodes-size))
+
(def: (promote-base put' Hash<K> level bitmap base)
(All [K V]
(-> (-> Level Hash-Code K V (Hash K) (Node K V) (Node K V))
@@ -265,7 +267,7 @@
[+0
(: (Array (Node ($ +0) ($ +1)))
(array;new hierarchy-nodes-size))]
- (indices-for hierarchy-nodes-size))))
+ hierarchy-indices)))
## All empty nodes look the same (a #Base node with clean bitmap is
## used).