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

cs: fix raise-result-arity-error

Browse Source
This commit is contained in:
Matthew Flatt 2018-10-10 10:31:35 -06:00
parent 191d17461f
commit 16347b434d
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
racket/src/cs/rumble/error.ss
View File

@ -346,7 +346,10 @@
(number->string (arity-at-least-value arity))))] (number->string (arity-at-least-value arity))))]
[else ""]))) [else ""])))
(define (raise-result-arity-error who num-expected-args where args) (define/who (raise-result-arity-error who num-expected-args where . args)
(check who symbol? :or-false who)
(check who exact-nonnegative-integer? num-expected-args)
(check who string? :or-false where)
(raise (raise
(|#%app| (|#%app|
exn:fail:contract:arity exn:fail:contract:arity
@ -356,7 +359,7 @@
" expected number of values not received\n" " expected number of values not received\n"
" received: " (number->string (length args)) "\n" " received: " (number->string (length args)) "\n"
" expected: " (number->string num-expected-args) " expected: " (number->string num-expected-args)
where) (or where ""))
(current-continuation-marks)))) (current-continuation-marks))))
(define (raise-binding-result-arity-error expected-args args) (define (raise-binding-result-arity-error expected-args args)