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

bug fix

Browse Source 
svn: r18810
This commit is contained in:
Matthew Flatt 2010-04-13 17:38:09 +00:00
parent 536fcacc42
commit 66c31d456f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mzscheme/src/stxobj.c
View File

@ -5321,7 +5321,7 @@ Scheme_Object *scheme_stx_source_module(Scheme_Object *stx, int resolve, int sou
/* Inspect the wraps to look for a self-modidx shift: */ /* Inspect the wraps to look for a self-modidx shift: */
WRAP_POS w; WRAP_POS w;
Scheme_Object *srcmod = scheme_false, *chain_from = NULL, *er; Scheme_Object *srcmod = scheme_false, *chain_from = NULL, *er;
Scheme_Hash_Table *export_registry; Scheme_Hash_Table *export_registry = NULL;
WRAP_POS_INIT(w, ((Scheme_Stx *)stx)->wraps); WRAP_POS_INIT(w, ((Scheme_Stx *)stx)->wraps);