Correct severe flaw in hash-function (typo, "a" for "os"!)
This commit is contained in:
parent
e0ba76dc4e
commit
482852a6d6
|
@ -131,12 +131,12 @@
|
||||||
(eq? h1 h2)))
|
(eq? h1 h2)))
|
||||||
(define (hash-proc a h)
|
(define (hash-proc a h)
|
||||||
(match-define (branch os w h) a)
|
(match-define (branch os w h) a)
|
||||||
(+ (eq-hash-code a)
|
(+ (eq-hash-code os)
|
||||||
(eq-hash-code w)
|
(eq-hash-code w)
|
||||||
(eq-hash-code h)))
|
(eq-hash-code h)))
|
||||||
(define (hash2-proc a h)
|
(define (hash2-proc a h)
|
||||||
(match-define (branch os w h) a)
|
(match-define (branch os w h) a)
|
||||||
(bitwise-xor (eq-hash-code a)
|
(bitwise-xor (eq-hash-code os)
|
||||||
(eq-hash-code w)
|
(eq-hash-code w)
|
||||||
(eq-hash-code h)))]
|
(eq-hash-code h)))]
|
||||||
#:methods gen:custom-write
|
#:methods gen:custom-write
|
||||||
|
|
Loading…
Reference in New Issue