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

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

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
collects/tests/racket/benchmarks/common/deriv.o1 Executable file
View File

Binary file not shown.

2
src/racket/src/eval.c
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))) if (scheme_hash_tree_get(procs, scheme_make_integer(p)))
scheme_ill_formed_code(port); scheme_ill_formed_code(port);
} }