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

fix #f misused as syntax object

Browse Source
This commit is contained in:
Matthew Flatt 2011-06-29 19:46:04 -06:00
parent 1160d3df62
commit daa6f1aed3
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/racket/src/syntax.c
View File

@ -7653,7 +7653,7 @@ static Scheme_Object *datum_to_syntax(int argc, Scheme_Object **argv)
((Scheme_Stx *)src)->props = properties;
}
if (!is_clean(argv[0])) {
if (!SCHEME_FALSEP(argv[0]) && !is_clean(argv[0])) {
add_taint_to_stx(src, 0);
}