diff --git a/src/racket/src/syntax.c b/src/racket/src/syntax.c index 9ea83c6afd..6cd6dc2419 100644 --- a/src/racket/src/syntax.c +++ b/src/racket/src/syntax.c @@ -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); }