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

rename a variable to clarify its use

Browse Source
This commit is contained in:
Robby Findler 2016-08-29 11:18:57 -05:00
parent 34ad1cec3f
commit 56c97474b0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/collects/racket/contract/private/arrow-common.rkt
View File

@ -343,9 +343,9 @@
[else [else
passes?])) passes?]))
(define (bad-number-of-results blame val rng-len args [case-context #f] (define (bad-number-of-results blame val rng-len results [case-context #f]
#:missing-party [missing-party #f]) #:missing-party [missing-party #f])
(define num-values (length args)) (define num-values (length results))
(define blame-case (if case-context (define blame-case (if case-context
(blame-add-context blame (format "the ~a case of" (n->th (+ case-context 1)))) (blame-add-context blame (format "the ~a case of" (n->th (+ case-context 1))))
blame)) blame))