From bc1f25bc308a4e1f53f9f5c39e88fda726a8ac95 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 12 Jan 2007 07:13:12 +0000
Subject: [PATCH] remove debugging check

svn: r5328
---
 src/mzscheme/src/print.c | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/src/mzscheme/src/print.c b/src/mzscheme/src/print.c
index c3bbd01861..2623b3e4a7 100644
--- a/src/mzscheme/src/print.c
+++ b/src/mzscheme/src/print.c
@@ -1308,11 +1308,7 @@ Scheme_Object *scheme_marshal_wrap_set(Scheme_Marshal_Tables *mt, Scheme_Object
       mt->rn_saved = rn_saved;
     }
     if (mt->pass >= 2) {
-      /* REMOVEME */
-      obj = scheme_hash_get(mt->rn_saved, obj);
-      if (!scheme_equal(obj, val))
-        scheme_signal_error("marshaled form changed on third pass: %V versus %V",
-                            obj, val);
+      /* Done already */
     } else
       scheme_hash_set(mt->rn_saved, obj, val);