From bc6670c8e040d12735a515f4b39dee95cffed075 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 9 Feb 2015 17:26:05 -0700
Subject: [PATCH] fix marshaling of module language info

Language info needs to be quote-protected in case it contains
a hash table or graph structure.
---
 racket/src/racket/src/marshal.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/racket/src/racket/src/marshal.c b/racket/src/racket/src/marshal.c
index bdc3031386..161f3e68c1 100644
--- a/racket/src/racket/src/marshal.c
+++ b/racket/src/racket/src/marshal.c
@@ -1341,7 +1341,7 @@ static Scheme_Object *write_module(Scheme_Object *obj)
   l = cons(scheme_false, l);
 
   if (m->lang_info)
-    l = cons(m->lang_info, l);
+    l = cons(scheme_protect_quote(m->lang_info), l);
   else
     l = cons(scheme_false, l);