1. Moritz Heidkamp
  2. persistent-hash-map

Commits

Moritz Heidkamp  committed cb4e58f

Make bit-count return a fixnum

  • Participants
  • Parent commits bd74fbc
  • Branches master

Comments (0)

Files changed (1)

File persistent-hash-map.scm

View file
   (arithmetic-shift 1 (mask hash shift)))
 
 ;; TODO: 64bit compat by doubling hex digits and -56 instead of -24
-(: bit-count (number --> number))
+(: bit-count (number --> fixnum))
 
 ;; (define (bit-count v)
 ;;   (let* ((v (- v (bitwise-and (arithmetic-shift v -1) #x55555555)))