From 935c55871777ffb1f35186eca0ab046188977b7e Mon Sep 17 00:00:00 2001 From: AlexKnauth Date: Mon, 1 Apr 2019 21:26:42 -0400 Subject: [PATCH] fix uses of raise-arguments-error one message string and no field-value pairs --- racket/collects/racket/private/set-types.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/racket/collects/racket/private/set-types.rkt b/racket/collects/racket/private/set-types.rkt index bc22c1c6a3..90aef823db 100644 --- a/racket/collects/racket/private/set-types.rkt +++ b/racket/collects/racket/private/set-types.rkt @@ -521,8 +521,9 @@ (when (null? args) (raise-arguments-error who - "when inject-proc, add-proc, shrink-proc, and extract-proc are #f," - " at least one property must be supplied"))) + (string-append + "when inject-proc, add-proc, shrink-proc, and extract-proc are #f," + " at least one property must be supplied")))) (values clear-proc (or equal-key-proc (λ (s e) e)) args))