fix validator bug (to allow flonum-consuming proc to be cleared)
Closes PR 11879
This commit is contained in:
parent
1993771652
commit
d28d42a46f
BIN
collects/tests/racket/benchmarks/common/deriv.o1
Executable file
BIN
collects/tests/racket/benchmarks/common/deriv.o1
Executable file
Binary file not shown.
|
@ -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);
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue
Block a user