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

fix marshaling of empty closure when its body has not been demanded before

Browse Source 
svn: r11558
This commit is contained in:
Matthew Flatt 2008-09-05 20:20:34 +00:00
parent 60e001000a
commit 1d2a09a753
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/mzscheme/src/fun.c
View File

@ -8236,6 +8236,9 @@ static Scheme_Object *write_compiled_closure(Scheme_Object *obj)
/* If the body is simple enough, write it directly. /* If the body is simple enough, write it directly.
Otherwise, create a delay indirection so that the body Otherwise, create a delay indirection so that the body
is loaded on demand. */ is loaded on demand. */
if (SCHEME_RPAIRP(data->code)) {
scheme_delay_load_closure(data);
}
code = data->code; code = data->code;
switch (SCHEME_TYPE(code)) { switch (SCHEME_TYPE(code)) {
case scheme_toplevel_type: case scheme_toplevel_type: