From dcc3f1d758e9377c3ad096fe6fe2db1497495395 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= Date: Thu, 8 Jun 2017 23:46:39 +0200 Subject: [PATCH] Fixed error message --- current-pvars.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/current-pvars.rkt b/current-pvars.rkt index 4663d07..fe04a11 100644 --- a/current-pvars.rkt +++ b/current-pvars.rkt @@ -171,7 +171,7 @@ (syntax*->list (stx-cdr stx)) (andmap identifier? (syntax*->list (stx-cdr stx))))) - (raise-syntax-error 'with-pvars "bad syntax" stx) + (raise-syntax-error 'define-pvars "bad syntax" stx) (void)) (let* ([pvars (reverse (syntax*->list (stx-cdr stx)))] [unique-at-runtime (map gensym (map syntax-e pvars))]