From 16347b434d0664cee8df60807c4cd753dc700eed Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 10 Oct 2018 10:31:35 -0600 Subject: [PATCH] cs: fix `raise-result-arity-error` --- racket/src/cs/rumble/error.ss | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/racket/src/cs/rumble/error.ss b/racket/src/cs/rumble/error.ss index 7ee36cf7d4..5af2ebf20d 100644 --- a/racket/src/cs/rumble/error.ss +++ b/racket/src/cs/rumble/error.ss @@ -346,7 +346,10 @@ (number->string (arity-at-least-value arity))))] [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 (|#%app| exn:fail:contract:arity @@ -356,7 +359,7 @@ " expected number of values not received\n" " received: " (number->string (length args)) "\n" " expected: " (number->string num-expected-args) - where) + (or where "")) (current-continuation-marks)))) (define (raise-binding-result-arity-error expected-args args)