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

missed a spot in b100f4b

Browse Source
This commit is contained in:
Robby Findler 2016-12-17 17:08:43 -06:00
parent 23226d4290
commit 98c3906059
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
racket/collects/racket/contract/private/arr-i.rkt
View File

@ -1253,7 +1253,7 @@ evaluted left-to-right.)
;; opt/direct duplicates code (bad!)
(#,(if is-chaperone-contract? #'un-dep/chaperone #'un-dep)
the-contract val blame neg-party indy-blame?)))))
;; then the non-dependent argument contracts that are themselves dependend on
;; then the non-dependent argument contracts that are themselves depended on
(list #,@(filter values
(map (λ (arg/res indy-id)
(and (free-identifier-mapping-get used-indy-vars
@ -1283,6 +1283,7 @@ evaluted left-to-right.)
(gensym '->i-indy-boundary)))
(if (eres? arg)
#`(λ #,orig-vars
#,@(arg/res-vars arg) ;; needed for check syntax arrows
(opt/c #,arg-stx))
#`(λ (#,@orig-vars)
(define the-contract #,arg-stx)