From 90aac96cdebdb2888ee54257f753ce357b92bcaf Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 9 Nov 2018 20:49:51 -0700 Subject: [PATCH] expander: fix taint problem with 'origin handling Repairs a problem with commit 990e1f1e30. --- racket/src/expander/expand/main.rkt | 2 +- racket/src/racket/src/startup.inc | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/racket/src/expander/expand/main.rkt b/racket/src/expander/expand/main.rkt index 645e622eeb..9c344b1662 100644 --- a/racket/src/expander/expand/main.rkt +++ b/racket/src/expander/expand/main.rkt @@ -711,7 +711,7 @@ #:for-track? [for-track? #f] #:keep-for-parsed? [keep-for-parsed? #f] #:keep-for-error? [keep-for-error? #f]) - (define d (syntax-e s)) + (define d (syntax-e/no-taint s)) (define keep-e (cond [(symbol? d) d] [(and (pair? d) (syntax-identifier? (car d))) (syntax-e (car d))] diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index 04b256a073..1eb7d8b333 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -40581,7 +40581,7 @@ static const char *startup_source = "(let-values(((keep-for-parsed?_0) keep-for-parsed?112_0))" "(let-values(((keep-for-error?_0) keep-for-error?113_0))" "(let-values()" -"(let-values(((d_0)(syntax-e$1 s_0)))" +"(let-values(((d_0)(syntax-e/no-taint s_0)))" "(let-values(((keep-e_0)" "(if(symbol? d_0)" "(let-values() d_0)"