From 15eb016e25dd96c03b009d90b06b9a2eae2a1a36 Mon Sep 17 00:00:00 2001
From: Sam Tobin-Hochstadt <samth@racket-lang.org>
Date: Tue, 24 Jun 2008 23:52:16 +0000
Subject: [PATCH] Fix PR 9540

svn: r10448
---
 collects/scheme/match/define-forms.ss | 1 +
 collects/tests/match/examples.ss      | 4 ++++
 2 files changed, 5 insertions(+)

diff --git a/collects/scheme/match/define-forms.ss b/collects/scheme/match/define-forms.ss
index 44ecec966f..9d2cde591e 100644
--- a/collects/scheme/match/define-forms.ss
+++ b/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)
diff --git a/collects/tests/match/examples.ss b/collects/tests/match/examples.ss
index c45210ba88..eecbe51a7d 100644
--- a/collects/tests/match/examples.ss
+++ b/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)))
+
 
    ))
\ No newline at end of file