Documenting make-hasheqv and using it

This commit is contained in:
Jay McCarthy 2010-05-27 12:19:58 -06:00
parent 035ee93911
commit 7e485b8d28
2 changed files with 7 additions and 2 deletions

View File

@ -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)))))]

View File

@ -1051,3 +1051,9 @@ for use with @scheme[make-reader-graph].}
Like @scheme[make-immutable-hasheq], but produces a table placeholder
for use with @scheme[make-reader-graph].}
@defproc[(make-hasheqv-placeholder [assocs (listof pair?)])
hash-placeholder?]{
Like @scheme[make-immutable-hasheqv], but produces a table placeholder
for use with @scheme[make-reader-graph].}