From 79fa1070066f206ef08b1ed86d1df8b9712381dd Mon Sep 17 00:00:00 2001 From: Suzanne Soy Date: Wed, 3 Mar 2021 18:11:07 +0000 Subject: [PATCH] check-arity/neg doesn't exist / doesn't work in Racket 6.11 --- 6-11/racket/collects/syntax/parse/private/runtime-reflect.rkt | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/6-11/racket/collects/syntax/parse/private/runtime-reflect.rkt b/6-11/racket/collects/syntax/parse/private/runtime-reflect.rkt index 04d87f0..d561684 100644 --- a/6-11/racket/collects/syntax/parse/private/runtime-reflect.rkt +++ b/6-11/racket/collects/syntax/parse/private/runtime-reflect.rkt @@ -54,9 +54,7 @@ A Reified is (define (check-params who e-arity r-arity obj) (let ([e-pos (arity-minpos e-arity)] [e-kws (arity-minkws e-arity)]) - (check-arity/neg r-arity e-pos e-kws - (lambda (msg) - (raise-mismatch-error who (string-append msg ": ") obj))))) + (check-arity r-arity e-pos e-kws (lambda (msg) (error who "~a" msg))))) (define (adapt-parser who esig0 rsig0 parser splicing?) (if (equal? esig0 rsig0)