Documenting make-hasheqv and using it

original commit: 7e485b8d28
2010-05-27 12:19:58 -06:00 · 2010-05-27 12:19:58 -06:00 · 304e5247ed
commit 304e5247ed
parent 7b264d5089
1 changed files with 1 additions and 2 deletions
--- a/collects/compiler/zo-parse.rkt
+++ b/collects/compiler/zo-parse.rkt
@ -794,9 +794,8 @@
                 [len (read-compact-number cp)])
             ((case eq
                [(0) make-hasheq-placeholder]
-                ; XXX One of these should be eqv
                [(1) make-hash-placeholder]
-                [(2) make-hash-placeholder])
+                [(2) make-hasheqv-placeholder])
              (for/list ([i (in-range len)])
                (cons (read-compact cp)
                      (read-compact cp)))))]