This was incorrectly syntaxed.

svn: r10700
2008-07-09 17:39:31 +00:00 · 2008-07-09 17:39:31 +00:00 · 63a4e5af2e
commit 63a4e5af2e
parent 63f0e97490
1 changed files with 1 additions and 1 deletions
--- a/collects/scheme/match/parse-helper.ss
+++ b/collects/scheme/match/parse-helper.ss
@ -18,7 +18,7 @@
  (cond [(eq? '_ (syntax-e x))
         (make-Dummy x)]
        [(ddk? x) (raise-syntax-error 'match "incorrect use of ... in pattern"
-                                      #'x)]
+                                      x)]
        [else (make-Var x)]))

 ;; stx : syntax of pattern, starting with quote