suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

use #f to propagate correct identifier

Browse Source
This commit is contained in:
Jon Rafkind 2010-11-09 18:05:59 -07:00
parent 81eac261dc
commit 19da99f7e8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/racket/private/misc.rkt
View File

@ -19,7 +19,7 @@
(lambda (user) (lambda (user)
(syntax-case** dr #t user () free-identifier=? (syntax-case** dr #t user () free-identifier=?
[(_ . pattern) (syntax/loc user template)] [(_ . pattern) (syntax/loc user template)]
[else (raise-syntax-error 'name (format "~a did not match pattern ~a" (syntax->datum user) '(name . pattern)))] [else (raise-syntax-error #f (format "`~a' did not match pattern `~a'" (cdr (syntax->datum user)) 'pattern) user)]
))))] ))))]
[(dr (name . pattern) template) [(dr (name . pattern) template)
(raise-syntax-error 'define-syntax-rule "expected an identifier" stx #'name)] (raise-syntax-error 'define-syntax-rule "expected an identifier" stx #'name)]