Commits

Moritz Heidkamp  committed cb4e58f

Make bit-count return a fixnum

  • Participants
  • Parent commits bd74fbc

Comments (0)

Files changed (1)

File persistent-hash-map.scm

   (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)))