fix error message

This commit is contained in:
Robby Findler 2016-05-27 14:00:59 -05:00
parent 79e74d3b59
commit 5edbe0fc85

View File

@ -136,7 +136,7 @@
[else [else
(raise-argument-error 'xref-binding-definition->tag (raise-argument-error 'xref-binding-definition->tag
"(list/c (or/c module-path? module-path-index?) any/c)" "(list/c (or/c module-path? module-path-index?) any/c)"
src)]))] id/binding)]))]
[else (raise-argument-error 'xref-binding-definition->tag [else (raise-argument-error 'xref-binding-definition->tag
(string-append (string-append
"(or/c identifier? (lambda (l)\n" "(or/c identifier? (lambda (l)\n"