code-inspector fix for top-level code from bytecode

Merge to 5.1.2 (cherry picked from commit 530bb1b9ba)
2011-07-20 14:24:43 -06:00 · 2011-07-20 14:24:43 -06:00 · 4389a4671d
commit 4389a4671d
parent f87c5acdf9
1 changed files with 4 additions and 1 deletions
--- a/src/racket/src/eval.c
+++ b/src/racket/src/eval.c
@ -815,7 +815,10 @@ static Scheme_Object *link_toplevel(Scheme_Object **exprs, int which, Scheme_Env
                                  exprs, which);
  } else {
    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,
                                                    src_modidx,
                                                    dest_modidx),