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
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])
(define num-values (length args))
(define num-values (length results))
(define blame-case (if case-context
(blame-add-context blame (format "the ~a case of" (n->th (+ case-context 1))))
blame))