change error message

svn: r16333
This commit is contained in:
Jon Rafkind 2009-10-15 23:38:07 +00:00
parent 5daa334ab7
commit b6d2fdc274

View File

@ -1948,7 +1948,7 @@
(extract-patterns #'(pattern ...))])
(values
#'(begin
(define honu-literal (lambda () (error 'honu-literal "you suck")))
(define honu-literal (lambda () (error 'honu-literal "cant use this")))
...
(define-honu-syntax name
(lambda (stx ctx)