www

commit c5df776e826b4738c7761f446302d77ba1dd584f
parent b564f76228d170b15bac41e1529f4a9d2da57660
Author: Georges Dupéron <georges.duperon@gmail.com>
Date:   Fri,  1 Sep 2017 13:55:02 +0200

Partial inclusion of upstream changes, to avoid a compilation error.

Diffstat:
M
parse/private/runtime-reflect.rkt
 | 
4
+---

1 file changed, 1 insertion(+), 3 deletions(-)
diff --git a/parse/private/runtime-reflect.rkt b/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)