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

minor clean-up

Browse Source
This commit is contained in:
Matthew Flatt 2011-06-29 21:32:48 -06:00
parent 011b79180b
commit 1af8cd07ad
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/racket/src/syntax.c
View File

@ -1886,7 +1886,6 @@ Scheme_Object *scheme_delayed_rename(Scheme_Object **o, intptr_t i)
{ {
Scheme_Object *rename, *v; Scheme_Object *rename, *v;
Resolve_Prefix *rp; Resolve_Prefix *rp;
int added = 0;
rename = o[0]; rename = o[0];
@ -1908,7 +1907,7 @@ Scheme_Object *scheme_delayed_rename(Scheme_Object **o, intptr_t i)
rename = SCHEME_VEC_ELS(rename)[4]; rename = SCHEME_VEC_ELS(rename)[4];
if (!SCHEME_FALSEP(rename)) { if (!SCHEME_FALSEP(rename)) {
/* need to propagate the inspector for dye packs, too */ /* need to propagate the inspector for dye packs, too */
(void)set_false_insp((Scheme_Object *)v, rename, added); (void)set_false_insp((Scheme_Object *)v, rename, 0);
} }
return v; return v;