From fbe29fa7e2b717a7c031a7d3b67bc8149d60d953 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 13 Jan 2010 13:50:40 +0000
Subject: [PATCH] fix declaration not at block start

svn: r17629
---
 src/mzscheme/src/thread.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/mzscheme/src/thread.c b/src/mzscheme/src/thread.c
index cb9b9a78ac..50376edce3 100644
--- a/src/mzscheme/src/thread.c
+++ b/src/mzscheme/src/thread.c
@@ -842,10 +842,11 @@ void scheme_init_inspector() {
 Scheme_Object *scheme_get_current_inspector()
   XFORM_SKIP_PROC
 {
+  Scheme_Config *c;
+
   if (scheme_defining_primitives) 
     return initial_inspector;
 
-  Scheme_Config *c;
   c = scheme_current_config();
   return scheme_get_param(c, MZCONFIG_INSPECTOR);
 }