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

fix problem pushing instantiation-time inspector

Browse Source
This commit is contained in:
Matthew Flatt 2011-06-29 20:20:59 -06:00
parent 01867f12b1
commit e16e36e49c
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2514,8 +2514,14 @@ static Scheme_Object *set_false_insp(Scheme_Object *o, Scheme_Object *false_insp
if (is_tainted(o)) if (is_tainted(o))
return o; return o;
if (is_armed(o) && SCHEME_TRUEP(SCHEME_CAR(((Scheme_Stx *)o)->taints))) else if (is_armed(o)) {
if (SCHEME_TRUEP(SCHEME_CAR(((Scheme_Stx *)o)->taints)))
return o; return o;
} else {
if (((Scheme_Stx *)o)->taints)
/* `taints' must be an inspector already */
return o;
}
if (need_clone) if (need_clone)
o = clone_stx(o); o = clone_stx(o);