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

code-inspector fix for top-level code from bytecode

Browse Source 
Merge to 5.1.2
This commit is contained in:
Matthew Flatt 2011-07-20 14:24:43 -06:00
parent 8504996862
commit 530bb1b9ba
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -816,6 +816,9 @@ static Scheme_Object *link_toplevel(Scheme_Object **exprs, int which, Scheme_Env
} else { } else {
Module_Variable *mv = (Module_Variable *)expr; Module_Variable *mv = (Module_Variable *)expr;
if ((!insp || SCHEME_FALSEP(insp)) && !mv->insp)
insp = scheme_get_param(scheme_current_config(), MZCONFIG_CODE_INSPECTOR);
return link_module_variable(scheme_modidx_shift(mv->modidx, return link_module_variable(scheme_modidx_shift(mv->modidx,
src_modidx, src_modidx,
dest_modidx), dest_modidx),