Fix arity error message.

This commit is contained in:
Vincent St-Amour 2016-05-20 13:40:41 -05:00
parent 8d082a47c6
commit d86c69fc21

View File

@ -53,8 +53,7 @@
((if method? sub1 values) expected-number-of-non-keyword-args)) ((if method? sub1 values) expected-number-of-non-keyword-args))
(raise-blame-error blame #:missing-party neg-party val (raise-blame-error blame #:missing-party neg-party val
`(expected: `(expected:
,(string-append "a " ,(string-append proc/meth
proc/meth
" that accepts ~a non-keyword argument~a~a") " that accepts ~a non-keyword argument~a~a")
given: "~e" given: "~e"
"\n ~a") "\n ~a")