This was incorrectly syntaxed.
svn: r10700
This commit is contained in:
parent
63f0e97490
commit
63a4e5af2e
|
@ -18,7 +18,7 @@
|
||||||
(cond [(eq? '_ (syntax-e x))
|
(cond [(eq? '_ (syntax-e x))
|
||||||
(make-Dummy x)]
|
(make-Dummy x)]
|
||||||
[(ddk? x) (raise-syntax-error 'match "incorrect use of ... in pattern"
|
[(ddk? x) (raise-syntax-error 'match "incorrect use of ... in pattern"
|
||||||
#'x)]
|
x)]
|
||||||
[else (make-Var x)]))
|
[else (make-Var x)]))
|
||||||
|
|
||||||
;; stx : syntax of pattern, starting with quote
|
;; stx : syntax of pattern, starting with quote
|
||||||
|
|
Loading…
Reference in New Issue
Block a user