From 7e485b8d28a43581c501c0f16e62e7b67f494324 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Thu, 27 May 2010 12:19:58 -0600 Subject: [PATCH] Documenting make-hasheqv and using it --- collects/compiler/zo-parse.rkt | 3 +-- collects/scribblings/reference/pairs.scrbl | 6 ++++++ 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/collects/compiler/zo-parse.rkt b/collects/compiler/zo-parse.rkt index 4d97023a90..c7f6670fc3 100644 --- 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)))))] diff --git a/collects/scribblings/reference/pairs.scrbl b/collects/scribblings/reference/pairs.scrbl index b6234dd27f..5c7b6893db 100644 --- a/collects/scribblings/reference/pairs.scrbl +++ b/collects/scribblings/reference/pairs.scrbl @@ -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].}