fix marshaling of module language info

Language info needs to be quote-protected in case it contains
a hash table or graph structure.
This commit is contained in:
Matthew Flatt 2015-02-09 17:26:05 -07:00
parent 9c7d0b8794
commit bc6670c8e0

View File

@ -1341,7 +1341,7 @@ static Scheme_Object *write_module(Scheme_Object *obj)
l = cons(scheme_false, l); l = cons(scheme_false, l);
if (m->lang_info) if (m->lang_info)
l = cons(m->lang_info, l); l = cons(scheme_protect_quote(m->lang_info), l);
else else
l = cons(scheme_false, l); l = cons(scheme_false, l);