Commits

Moritz Heidkamp committed 3c941ec

Use foreign-integer for 32 bit compat

Comments (0)

Files changed (1)

persistent-hash-map.scm

 ;;     (arithmetic-shift (fx* (bitwise-and (fx+ v (arithmetic-shift v -4)) #xF0F0F0F) #x1010101) -24)))
 
 (define bit-count
-  (foreign-lambda int __builtin_popcount unsigned-int))
+  (foreign-lambda int __builtin_popcount unsigned-integer))
 
 (: bitmap-indexed-node-index (fixnum fixnum --> fixnum))
 (define (bitmap-indexed-node-index bitmap bit)