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

fix bytecode validator on closed case-lambda forms

Browse Source
This commit is contained in:
Matthew Flatt 2010-05-04 15:25:08 -06:00
parent 282bc9d787
commit e55acb4bc8
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/racket/src/eval.c
View File

@ -12388,6 +12388,15 @@ void scheme_validate_expr(Mz_CPort *port, Scheme_Object *expr,
did_one = 0;
goto top;
}
} else if (SAME_TYPE(type, scheme_case_closure_type)) {
Scheme_Case_Lambda *seq;
int i;
seq = (Scheme_Case_Lambda *)expr;
for (i = 0; i < seq->count; i++) {
scheme_validate_expr(port, seq->array[i], stack, tls, depth, letlimit, delta,
num_toplevels, num_stxes, num_lifts,
NULL, 0, 0, vc, 0, 0);
}
} else if (need_flonum) {
if (!SCHEME_FLOATP(expr))
no_flo(need_flonum, port);