From 8aa4ff1b06854521a8ac93c09cffa21a9e0a961b Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 2 Jul 2011 10:07:41 -0600 Subject: [PATCH] syntax taint repairs --- collects/unstable/automata/re.rkt | 2 +- src/racket/src/compile.c | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/unstable/automata/re.rkt b/collects/unstable/automata/re.rkt index dbecae2357..cc36e80b5d 100644 --- a/collects/unstable/automata/re.rkt +++ b/collects/unstable/automata/re.rkt @@ -14,7 +14,7 @@ (define-for-syntax (re-expand stx) (syntax-parse - stx + (syntax-disarm stx (current-code-inspector)) #:literals (complement seq union star epsilon nullset dseq rec unquote) [((~and op complement) lhs:expr) (quasisyntax/loc stx diff --git a/src/racket/src/compile.c b/src/racket/src/compile.c index baf93f6f8a..24fa1364c0 100644 --- a/src/racket/src/compile.c +++ b/src/racket/src/compile.c @@ -3324,6 +3324,7 @@ do_letrec_syntaxes(const char *where, /* Pull back out the pieces we want: */ Scheme_Object *formname; formname = SCHEME_STX_CAR(forms); + v = scheme_stx_taint_disarm(v, NULL); v = SCHEME_STX_CDR(v); v = cons(formname, cons(bindings, v)); v = scheme_datum_to_syntax(v, orig_forms, scheme_sys_wraps(origenv), 0, 2);