commit 79fa1070066f206ef08b1ed86d1df8b9712381dd parent e6355529b6e471f5443e2c586d1fc41dab6bdc8e Author: Suzanne Soy <ligo@suzanne.soy> Date: Wed, 3 Mar 2021 18:11:07 +0000 check-arity/neg doesn't exist / doesn't work in Racket 6.11 Diffstat:
| M | 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 @@ -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)