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

Check that serialized procedures are the right kind of procedures.

Browse Source 
Fixes http://drdr.racket-lang.org/31801/pkgs/racket-test/tests/racket/stress/fuzz.rkt
This commit is contained in:
Sam Tobin-Hochstadt 2015-09-23 14:56:43 -04:00
parent d6ad89764b
commit 57b4920234
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/src/racket/src/marshal.c
View File

@ -399,6 +399,10 @@ static Scheme_Object *read_case_lambda(Scheme_Object *obj)
return NULL; return NULL;
all_closed = 0; all_closed = 0;
} }
else {
if (!SAME_TYPE(SCHEME_TYPE(a), scheme_closure_type))
return NULL;
}
} }
if (all_closed) { if (all_closed) {