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

expander: fix taint problem with 'origin handling

Browse Source 
Repairs a problem with commit 990e1f1e30.
This commit is contained in:
Matthew Flatt 2018-11-09 20:49:51 -07:00
parent 990e1f1e30
commit 90aac96cde
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/expander/expand/main.rkt
View File

@ -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))]

2
racket/src/racket/src/startup.inc
View File

@ -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)"