diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/lux/data/collection/row.lux | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/lux/data/collection/row.lux b/stdlib/source/lux/data/collection/row.lux index 87af1ee16..1e74054e5 100644 --- a/stdlib/source/lux/data/collection/row.lux +++ b/stdlib/source/lux/data/collection/row.lux @@ -71,7 +71,7 @@ (if (n/< full-node-size vec-size) 0 (|> (dec vec-size) - (i64.logical-right-shift branching-exponent) + (i64.logic-right-shift branching-exponent) (i64.left-shift branching-exponent)))) (def: (new-path level tail) @@ -89,7 +89,7 @@ (def: (push-tail size level tail parent) (All [a] (-> Nat Level (Base a) (Hierarchy a) (Hierarchy a))) - (let [sub-idx (branch-idx (i64.logical-right-shift level (dec size))) + (let [sub-idx (branch-idx (i64.logic-right-shift level (dec size))) ## If we're currently on a bottom node sub-node (if (n/= branching-exponent level) ## Just add the tail to it @@ -118,7 +118,7 @@ (def: (put' level idx val hierarchy) (All [a] (-> Level Index a (Hierarchy a) (Hierarchy a))) - (let [sub-idx (branch-idx (i64.logical-right-shift level idx))] + (let [sub-idx (branch-idx (i64.logic-right-shift level idx))] (case (array.read sub-idx hierarchy) (#.Some (#Hierarchy sub-node)) (|> (array.clone hierarchy) @@ -136,7 +136,7 @@ (def: (pop-tail size level hierarchy) (All [a] (-> Nat Level (Hierarchy a) (Maybe (Hierarchy a)))) - (let [sub-idx (branch-idx (i64.logical-right-shift level (n/- 2 size)))] + (let [sub-idx (branch-idx (i64.logic-right-shift level (n/- 2 size)))] (cond (n/= 0 sub-idx) #.None @@ -204,7 +204,7 @@ ## -------------------------------------------------------- ## Will the root experience an overflow with this addition? (|> (if (n/> (i64.left-shift (get@ #level vec) 1) - (i64.logical-right-shift branching-exponent vec-size)) + (i64.logic-right-shift branching-exponent vec-size)) ## If so, a brand-new root must be established, that is ## 1-level taller. (|> vec @@ -234,7 +234,7 @@ (loop [level (get@ #level vec) hierarchy (get@ #root vec)] (case [(n/> branching-exponent level) - (array.read (branch-idx (i64.logical-right-shift level idx)) hierarchy)] + (array.read (branch-idx (i64.logic-right-shift level idx)) hierarchy)] [#1 (#.Some (#Hierarchy sub))] (recur (level-down level) sub) |