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

racket/class: remove excessive syntax-protect

Browse Source 
No `syntax-protect` is needed for `define/private`, etc., because no
new identifiers or expressions are introduced. Adding extra dye packs
can interfere with other macros that pull apart syntax (although maybe
the macros shouldn't do that without using `syntax-disarm`).
This commit is contained in:
Matthew Flatt 2019-04-30 09:07:59 -06:00
parent dd22b8b599
commit a3fcaf92df
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
racket/collects/racket/private/class-internal.rkt
View File

@ -1871,11 +1871,10 @@
"use of a class keyword is not in a class top-level" "use of a class keyword is not in a class top-level"
stx)) stx))
(let-values ([(id rhs) (normalize-definition stx #'lambda #f #t)]) (let-values ([(id rhs) (normalize-definition stx #'lambda #f #t)])
(class-syntax-protect
(quasisyntax/loc stx (quasisyntax/loc stx
(begin (begin
(#,decl-form #,id) (#,decl-form #,id)
(define #,id #,rhs)))))))]) (define #,id #,rhs))))))])
(values (values
(mk #'private) (mk #'private)
(mk #'public) (mk #'public)