cs: change multiple values mismatch error to match bc

Related to #3325
This commit is contained in:
Sorawee Porncharoenwase 2020-08-03 23:39:21 -07:00 committed by Matthew Flatt
parent 85497fe230
commit e2b8fdb553

View File

@ -428,7 +428,7 @@
(define (raise-binding-result-arity-error expected-args args)
(apply raise-result-arity-error #f
(length expected-args)
"\n at: local-binding form"
"\n in: local-binding form"
args))
(define (raise-definition-result-arity-error expected-args args)
@ -436,7 +436,7 @@
(length expected-args)
(if (null? expected-args)
""
(string-append "\n at: definition of "
(string-append "\n in: definition of "
(symbol->string (car expected-args))
" ..."))
args))