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

repair to decompiler printing of eq hash tables

Browse Source
This commit is contained in:
Matthew Flatt 2015-04-10 20:41:39 -06:00
parent 8e617a6e5b
commit c431d34955
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler-lib/compiler/decompile.rkt
View File

@ -112,7 +112,12 @@
(define ph (make-placeholder #f)) (define ph (make-placeholder #f))
(hash-set! ht e ph) (hash-set! ht e ph)
(placeholder-set! ph (placeholder-set! ph
(make-hash-placeholder ((cond
[(hash-eq? ht)
make-hasheq-placeholder]
[(hash-eqv? ht)
make-hasheqv-placeholder]
[else make-hash-placeholder])
(for/list ([(k v) (in-hash e)]) (for/list ([(k v) (in-hash e)])
(cons (loop k) (loop v))))) (cons (loop k) (loop v)))))
ph] ph]