syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Correct severe flaw in hash-function (typo, "a" for "os"!)

This commit is contained in:
Tony Garnock-Jones 2016-03-15 10:52:16 -04:00
parent e0ba76dc4e
commit 482852a6d6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
prospect/trie.rkt
View File

@ -131,12 +131,12 @@
(eq? h1 h2)))
(define (hash-proc a h)
(match-define (branch os w h) a)
(+ (eq-hash-code a)
(+ (eq-hash-code os)
(eq-hash-code w)
(eq-hash-code h)))
(define (hash2-proc a h)
(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 h)))]
#:methods gen:custom-write