slightly more explicit error msg

This commit is contained in:
Andrew Kent 2015-12-15 11:17:50 -05:00 committed by Vincent St-Amour
parent 6985150e0b
commit b4afecab97

View File

@ -231,8 +231,8 @@
id))
(unless (pair? matches)
(wrong-syntax sig-stx
"did not find ~a among ~a to ~s"
"the generic name"
"did not find ~a \"~a\" among ~a to ~s"
"the generic name" (syntax-e self-id)
"the required, by-position arguments"
(syntax-e name-stx)))
(when (pair? (cdr matches))