suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed hash-code for id-tables

Browse Source 
Closes PR 13942.
This commit is contained in:
Ryan Culpepper 2013-07-31 16:58:21 -04:00
parent 2057b51f21
commit f5b91941eb
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
racket/collects/syntax/private/id-table.rkt
View File

@ -13,9 +13,10 @@
(define (make-id-table-hash-code identifier->symbol)
(lambda (d hash-code)
(+ (hash-code (id-table-phase d))
(for/sum (((k v) (in-dict d)))
(* (hash-code (identifier->symbol k)) (hash-code v))))))
(let ([phase (id-table-phase d)])
(+ (hash-code phase)
(for/sum (((k v) (in-dict d)))
(* (hash-code (identifier->symbol k phase)) (hash-code v)))))))
(define (make-id-table-equal? idtbl-count idtbl-ref)
(lambda (left right equal?)