From 4389a4671d02ffe5521baeb8ba4a29862bbbfdcf Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 20 Jul 2011 14:24:43 -0600
Subject: [PATCH] code-inspector fix for top-level code from bytecode

Merge to 5.1.2
(cherry picked from commit 530bb1b9ba9db8b3e1bbb604f9f285f6febf3d8b)
---
 src/racket/src/eval.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/racket/src/eval.c b/src/racket/src/eval.c
index 8bb4e7738b..a421bd8ef0 100644
--- 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),