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

cs: improve equal?-based immutable hash

Browse Source 
Check leaf hash code before a more general (and potentially much
slower) equality check.
This commit is contained in:
Matthew Flatt 2019-12-28 08:05:22 -06:00
parent 330ae24ce1
commit 2fcdd7c292
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
racket/src/cs/rumble/intmap.ss
View File

@ -84,7 +84,8 @@
(loop (Br-right t)))] (loop (Br-right t)))]
[(Lf? t) [(Lf? t)
(if (key=? et key (Lf-key t)) (if (and (fx= h (Lf-hash t))
(key=? et key (Lf-key t)))
(with-leaf t) (with-leaf t)
default)] default)]