fix validator bug (to allow flonum-consuming proc to be cleared)

Closes PR 11879
This commit is contained in:
Matthew Flatt 2011-04-26 18:44:36 -06:00
parent 1993771652
commit d28d42a46f
2 changed files with 1 additions and 1 deletions

Binary file not shown.

View File

@ -12491,7 +12491,7 @@ void scheme_validate_expr(Mz_CPort *port, Scheme_Object *expr,
}
}
if (procs && !proc_with_refs_ok) {
if (procs && !proc_with_refs_ok && !result_ignored) {
if (scheme_hash_tree_get(procs, scheme_make_integer(p)))
scheme_ill_formed_code(port);
}