fix syntax pattern-matching bug (PR 9643)

svn: r10989
2008-07-30 19:45:59 +00:00 · 2008-07-30 19:45:59 +00:00 · 16b04d0328
commit 16b04d0328
parent 1338d3d5fe
1 changed files with 7 additions and 9 deletions
--- a/collects/scheme/private/stxcase.ss
+++ b/collects/scheme/private/stxcase.ss
@ -227,15 +227,13 @@
                                [elem-did-var? (cdr clause)])
                            (let ([m (loop match-elem (stx-vector-ref e pos) cap)])
                              (and m
-                                   (if (null? (cdr p))
-                                       m
                                   (let ([body (vloop (cdr p) (add1 pos))])
                                     (and body
                                          (if elem-did-var?
                                              (if (null? body)
                                                  m
                                                  (append m body))
-                                                  body))))))))])))]
+                                              body)))))))])))]
              [(eq? i 'prefab)
               (and (stx-prefab? (vector-ref i 1) e)
                    (loop (vector-ref i 2) (cdr (vector->list (struct->vector (syntax-e e)))) cap))]