Fix raised exception on erroneous thing-doc usage.
This commit is contained in:
parent
50862d0132
commit
7da79dd62b
|
@ -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))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user