Fix raised exception on erroneous thing-doc usage.

This commit is contained in:
Dominik Pantůček 2019-09-25 19:16:41 +02:00 committed by Ben Greenman
parent 50862d0132
commit 7da79dd62b

View File

@ -577,7 +577,7 @@
[(_ id contract desc) [(_ id contract desc)
(begin (begin
(unless (identifier? #'id) (unless (identifier? #'id)
(raise-syntax-error 'parameter/doc (raise-syntax-error 'thing-doc
"expected an identifier" "expected an identifier"
stx stx
#'id)) #'id))