suzanne.soy/stxparse-info
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

check-arity/neg doesn't exist / doesn't work in Racket 6.11

Browse Source
This commit is contained in:
Suzanne Soy 2021-03-03 18:11:07 +00:00
parent e6355529b6
commit 79fa107006
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
6-11/racket/collects/syntax/parse/private/runtime-reflect.rkt
View File

@ -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)