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

remove debugging check

Browse Source 
svn: r5328
This commit is contained in:
Matthew Flatt 2007-01-12 07:13:12 +00:00
parent 91add0453f
commit bc1f25bc30
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/mzscheme/src/print.c
View File

@ -1308,11 +1308,7 @@ Scheme_Object *scheme_marshal_wrap_set(Scheme_Marshal_Tables *mt, Scheme_Object
mt->rn_saved = rn_saved; mt->rn_saved = rn_saved;
} }
if (mt->pass >= 2) { if (mt->pass >= 2) {
/* REMOVEME */ /* Done already */
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);
} else } else
scheme_hash_set(mt->rn_saved, obj, val); scheme_hash_set(mt->rn_saved, obj, val);