diff --git a/pkgs/racket-test/tests/generic/base-interfaces.rkt b/pkgs/racket-test/tests/generic/base-interfaces.rkt index d3ea803b19..35a7132b32 100644 --- a/pkgs/racket-test/tests/generic/base-interfaces.rkt +++ b/pkgs/racket-test/tests/generic/base-interfaces.rkt @@ -27,5 +27,7 @@ ;; ok if these don't raise unbound id errors (check-equal? (with-output-to-string (lambda () (write (tuple 5)))) "#0=#0#") (check-equal? (tuple 5) (tuple 5)) - (check-equal? (equal-hash-code (tuple 5)) 55) - (check-equal? (equal-secondary-hash-code (tuple 5)) 46)) + (check-equal? (equal-hash-code (tuple 5)) + (equal-hash-code (tuple 5))) + (check-equal? (equal-secondary-hash-code (tuple 5)) + (equal-secondary-hash-code (tuple 5)))) diff --git a/pkgs/racket-test/tests/generic/equal+hash.rkt b/pkgs/racket-test/tests/generic/equal+hash.rkt index 8523d2bfd8..47f4c52f98 100644 --- a/pkgs/racket-test/tests/generic/equal+hash.rkt +++ b/pkgs/racket-test/tests/generic/equal+hash.rkt @@ -16,5 +16,6 @@ (check-false (equal? (kons 1 2) 2)) (check-false (equal? 2 (kons 1 2))) (check-false (equal? (kons 1 2) (kons 3 4))) - (check-equal? (equal-hash-code (kons 1 2)) 62) + (check-equal? (equal-hash-code (kons 1 2)) + (equal-hash-code (kons 1 2))) )