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

error typo

Browse Source 
svn: r15593
This commit is contained in:
Eli Barzilay 2009-07-28 06:18:28 +00:00
parent af5614455a
commit 3b194ff070
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/scheme/private/misc.ss
View File

@ -20,13 +20,13 @@
(syntax-case** dr #t x () free-identifier=? (syntax-case** dr #t x () free-identifier=?
[(_ . pattern) (syntax/loc x template)]))))] [(_ . pattern) (syntax/loc x template)]))))]
[(dr (foo . pattern) template) [(dr (foo . pattern) template)
(raise-syntax-error 'define-rule "expected an identifier" stx #'foo)] (raise-syntax-error 'define-syntax-rule "expected an identifier" stx #'foo)]
[(dr (foo . pattern)) [(dr (foo . pattern))
(raise-syntax-error 'define-rule "no template provided" stx)] (raise-syntax-error 'define-syntax-rule "no template provided" stx)]
[(dr (foo . pattern) template . etc) [(dr (foo . pattern) template . etc)
(raise-syntax-error 'define-rule "too many templates" stx #'etc)] (raise-syntax-error 'define-syntax-rule "too many templates" stx #'etc)]
[(dr head . template) [(dr head . template)
(raise-syntax-error 'define-rule "invalid pattern" stx #'head)]))) (raise-syntax-error 'define-syntax-rule "invalid pattern" stx #'head)])))
;; ------------------------------------------------------------------------- ;; -------------------------------------------------------------------------