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

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

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