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

Fix Scribbling and eval-result copying of hasheqv/hasheq tables

Browse Source 
Closes PR 10918
This commit is contained in:
Matthew Flatt 2010-05-21 19:06:37 -06:00
parent 69230100e4
commit 141a37e50d
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/scribble/eval.rkt
View File

@ -215,7 +215,9 @@
ph ph
((if (hash-eq? v) ((if (hash-eq? v)
make-hasheq-placeholder make-hasheq-placeholder
make-hash-placeholder) (if (hash-eqv? v)
make-hasheqv-placeholder
make-hash-placeholder))
a))) a)))
ph)] ph)]
[else v])) [else v]))

2
collects/scribble/racket.rkt
View File

@ -663,7 +663,7 @@
[(hash? (syntax-e c)) [(hash? (syntax-e c))
(advance c init-line!) (advance c init-line!)
(let ([equal-table? (hash-equal? (syntax-e c))] (let ([equal-table? (hash-equal? (syntax-e c))]
[eqv-table? (hash-eq? (syntax-e c))] [eqv-table? (hash-eqv? (syntax-e c))]
[quote-depth (to-quoted c expr? quote-depth out color? inc-src-col)]) [quote-depth (to-quoted c expr? quote-depth out color? inc-src-col)])
(unless (and expr? (zero? quote-depth)) (unless (and expr? (zero? quote-depth))
(out (if equal-table? (out (if equal-table?