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

Fixes error for functions that return wrong number of values

Browse Source
This commit is contained in:
Casey Klein 2011-07-16 18:18:11 -05:00
parent 6ff5dc779b
commit a2bc43eabd
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/racket/contract/private/arrow.rkt
View File

@ -235,7 +235,7 @@ v4 todo:
post ...
rng-results]
[args
(bad-number-of-results blame val rng-len args)]))))
(bad-number-of-results blame val rng-len (length args))]))))
null)])
(let* ([min-method-arity (length doms)]
[max-method-arity (+ min-method-arity (length opt-doms))]
@ -1863,12 +1863,11 @@ v4 todo:
[else
passes?]))
(define (bad-number-of-results blame val rng-len)
(let ([num-values (length rng-len)])
(raise-blame-error blame val
"expected ~a value~a, returned ~a value~a"
rng-len (if (= rng-len 1) "" "s")
num-values (if (= num-values 1) "" "s"))))
(define (bad-number-of-results blame val rng-len num-values)
(raise-blame-error blame val
"expected ~a value~a, returned ~a value~a"
rng-len (if (= rng-len 1) "" "s")
num-values (if (= num-values 1) "" "s")))
;; timing & size tests