From ec837e8eb1f557077bb311041568d238f060558d Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 9 Oct 2018 15:51:54 -0600
Subject: [PATCH] places: fix serialization of hash tables as place messages

I'm not sure why thinsg seemed to work before, but an existing
test fails after recent chages.
---
 racket/src/racket/src/place.c | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/racket/src/racket/src/place.c b/racket/src/racket/src/place.c
index 22a5326dcc..ee9d06f712 100644
--- a/racket/src/racket/src/place.c
+++ b/racket/src/racket/src/place.c
@@ -1842,7 +1842,7 @@ DEEP_SST2_L:
       IFS_PUSH(nht);
       IFS_PUSH(so);
       IFS_PUSH(hti);
-      
+
       if (SCHEME_INTP(hti)) {
         Scheme_Object *a[2];
         a[0] = so;
@@ -1907,9 +1907,10 @@ DEEP_HT3:
       so   = IFS_POP;
       nht  = IFS_POP;
 
-      if (set_mode) {
+      if (set_mode)
         new_so = nht;
-      }
+      else
+        new_so = so;
       RETURN;
       break;