From 1d2a09a7537384bc7e68ee6f22728223effc77c5 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 5 Sep 2008 20:20:34 +0000
Subject: [PATCH] fix marshaling of empty closure when its body has not been
 demanded before

svn: r11558
---
 src/mzscheme/src/fun.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/mzscheme/src/fun.c b/src/mzscheme/src/fun.c
index 7021d6f45a..7b1fb4f6d9 100644
--- a/src/mzscheme/src/fun.c
+++ b/src/mzscheme/src/fun.c
@@ -8236,6 +8236,9 @@ static Scheme_Object *write_compiled_closure(Scheme_Object *obj)
   /* If the body is simple enough, write it directly.
      Otherwise, create a delay indirection so that the body
      is loaded on demand. */
+  if (SCHEME_RPAIRP(data->code)) {
+    scheme_delay_load_closure(data);
+  }
   code = data->code;
   switch (SCHEME_TYPE(code)) {
   case scheme_toplevel_type: