From 1eba8ac2a706ce55a0178e1ae8032a867f6af26b Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 18 Jul 2015 20:20:46 -0600
Subject: [PATCH] fix place-channel support for eq[v] hash tables

Bug caught by an existing test.
---
 racket/src/racket/src/place.c | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/racket/src/racket/src/place.c b/racket/src/racket/src/place.c
index 623985f877..cb7c64eac3 100644
--- a/racket/src/racket/src/place.c
+++ b/racket/src/racket/src/place.c
@@ -2199,8 +2199,10 @@ DEEP_SST2_L:
         RETURN;
       }
       break;
-    case scheme_hash_table_type:  
-    case scheme_hash_tree_type:  
+    case scheme_hash_table_type:
+    case scheme_hash_tree_type:
+    case scheme_eq_hash_tree_type:
+    case scheme_eqv_hash_tree_type:
       if (set_mode) {
         if (scheme_true == scheme_hash_eq_p(1, &so)) {
           nht = scheme_make_immutable_hasheq(0, NULL);