diff --git a/racket/src/cs/rumble/hash-code.ss b/racket/src/cs/rumble/hash-code.ss index 9546776fe0..7b7777b2a5 100644 --- a/racket/src/cs/rumble/hash-code.ss +++ b/racket/src/cs/rumble/hash-code.ss @@ -41,7 +41,7 @@ (define number-hash (lambda (z) (cond - [(fixnum? z) (if (fx< z 0) (fxnot z) z)] + [(fixnum? z) (if (fx< z 0) (fxand z (most-positive-fixnum)) z)] [(flonum? z) (#3%$flhash z)] [(bignum? z) (modulo z (most-positive-fixnum))] [(ratnum? z) (number-hash (+ (* (numerator z) 5) (denominator z)))]