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
(cherry picked from commit 530bb1b9ba)
This commit is contained in:
Matthew Flatt 2011-07-20 14:24:43 -06:00 committed by Eli Barzilay
parent f87c5acdf9
commit 4389a4671d
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -815,7 +815,10 @@ static Scheme_Object *link_toplevel(Scheme_Object **exprs, int which, Scheme_Env
exprs, which); exprs, which);
} 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),