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

avoid call to coerce-contract when we know it is already a contract

Browse Source
This commit is contained in:
Robby Findler 2017-02-05 14:36:08 -06:00
parent 8c5c8da1a7
commit 84048f6776
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/collects/racket/contract/private/provide.rkt
View File

@ -314,7 +314,9 @@
#`(begin #`(begin
(define contract-id (define contract-id
;; let is here to give the right name. ;; let is here to give the right name.
(let ([#,ex-id (coerce-contract '#,contract-error-name ctrct) (let ([#,ex-id #,(if arrow?
#'ctrct
#`(coerce-contract '#,contract-error-name ctrct))
#;(opt/c ctrct #:error-name #,contract-error-name)]) #;(opt/c ctrct #:error-name #,contract-error-name)])
#,ex-id)) #,ex-id))