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

Avoid redundant checking.

Browse Source
This commit is contained in:
Vincent St-Amour 2016-04-25 15:41:27 -05:00
parent 264a11f899
commit 5cc030e2ad
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -645,10 +645,8 @@
[(-#%app -chaperone-procedure expr . rst) [(-#%app -chaperone-procedure expr . rst)
(and (free-identifier=? (syntax -#%app) (and (free-identifier=? (syntax -#%app)
(quote-syntax #%plain-app)) (quote-syntax #%plain-app))
(or (free-identifier=? (syntax -chaperone-procedure) (free-identifier=? (syntax -chaperone-procedure)
(quote-syntax chaperone-procedure)) (quote-syntax chaperone-procedure)))
(free-identifier=? (syntax -chaperone-procedure)
(quote-syntax chaperone-procedure))))
(with-syntax ([expr (loop #'expr #t name locals)]) (with-syntax ([expr (loop #'expr #t name locals)])
(syntax-track-origin (syntax-track-origin
(rearm (rearm