repair to decompiler printing of eq hash tables

2015-04-10 20:41:39 -06:00 · 2015-04-10 20:41:39 -06:00 · c431d34955
commit c431d34955
parent 8e617a6e5b
1 changed files with 6 additions and 1 deletions
--- a/compiler-lib/compiler/decompile.rkt
+++ b/compiler-lib/compiler/decompile.rkt
@ -112,7 +112,12 @@
        (define ph (make-placeholder #f))
        (hash-set! ht e 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)])
                             (cons (loop k) (loop v)))))
        ph]