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 ...))]) (extract-patterns #'(pattern ...))])
(values (values
#'(begin #'(begin
(define honu-literal (lambda () (error 'honu-literal "you suck"))) (define honu-literal (lambda () (error 'honu-literal "cant use this")))
... ...
(define-honu-syntax name (define-honu-syntax name
(lambda (stx ctx) (lambda (stx ctx)