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

Fixed error message

Browse Source
This commit is contained in:
Georges Dupéron 2017-06-08 23:46:39 +02:00
parent bb7b5e9a7d
commit dcc3f1d758
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
current-pvars.rkt
View File

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