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

fix declaration not at block start

Browse Source 
svn: r17629
This commit is contained in:
Matthew Flatt 2010-01-13 13:50:40 +00:00
parent 70b3d5abcb
commit fbe29fa7e2
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/mzscheme/src/thread.c
View File

@ -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);
}