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

bring down below 102 columns

Browse Source
This commit is contained in:
Robby Findler 2016-12-15 09:38:30 -06:00
parent 8a7852ebbf
commit f1d6e8bfe8
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1144,8 +1144,10 @@ evaluted left-to-right.)
(define-for-syntax (->i-internal stx method?) (define-for-syntax (->i-internal stx method?)
(define an-istx (parse-->i stx)) (define an-istx (parse-->i stx))
(define used-indy-vars (mk-used-indy-vars an-istx)) (define used-indy-vars (mk-used-indy-vars an-istx))
(define-values (blame-ids wrapper-func) (mk-wrapper-func/blame-id-info stx an-istx used-indy-vars method?)) (define-values (blame-ids wrapper-func)
(define val-first-wrapper-func (mk-val-first-wrapper-func/blame-id-info an-istx used-indy-vars method?)) (mk-wrapper-func/blame-id-info stx an-istx used-indy-vars method?))
(define val-first-wrapper-func
(mk-val-first-wrapper-func/blame-id-info an-istx used-indy-vars method?))
(define args+rst (append (istx-args an-istx) (define args+rst (append (istx-args an-istx)
(if (istx-rst an-istx) (if (istx-rst an-istx)
(list (istx-rst an-istx)) (list (istx-rst an-istx))