Fix PR 9540

svn: r10448

collects/scheme/match/define-forms.ss

@@ -70,6 +70,7 @@
           (syntax/loc stx (let name ([pat exp] ...) body ...))]
          ;; now the real cases
          [(_ name ([pat exp] ...) . body)
+          (identifier? #'name)
           (syntax/loc stx (letrec ([name (match-lambda** ((pat ...) . body))])
                             (name exp ...)))]
          [(_ ([pat exp] ...) . body)

collects/tests/match/examples.ss

@@ -561,5 +561,9 @@
            [(list x y ... x z ...) 
             (list y z)]))
 
+   (comp '(1 2)
+         (match-let ([(vector a b) (vector 1 2)])
+                    (list a b)))
+
 
    ))