cs: improve equal?-based immutable hash

Check leaf hash code before a more general (and potentially much slower) equality check.
2019-12-28 08:05:22 -06:00 · 2019-12-28 08:05:22 -06:00 · 2fcdd7c292
commit 2fcdd7c292
parent 330ae24ce1
1 changed files with 2 additions and 1 deletions
--- a/racket/src/cs/rumble/intmap.ss
+++ b/racket/src/cs/rumble/intmap.ss
@ -84,7 +84,8 @@
              (loop (Br-right 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)
              default)]