cs: fix stencil-vector HAMT for 32-bit platforms

This commit is contained in:
Matthew Flatt 2020-03-17 18:23:48 -06:00
parent 3390896a59
commit 9effeef7ab

View File

@ -34,7 +34,7 @@
(define (intmap? x) (stencil-vector? x))
;; log of node size:
(define BNODE-BITS (if (fx> (stencil-vector-mask-width) 24)
(define BNODE-BITS (if (fx> (stencil-vector-mask-width) 26)
4
3))
(define BNODE-MASK (fx1- (fxsll 1 BNODE-BITS)))