From ec502d48025f51886b65772b7a09681399c7c809 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Mon, 7 Apr 2008 21:42:15 +0000 Subject: [PATCH] rename svn: r9184 --- collects/scheme/match/parse-helper.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/scheme/match/parse-helper.ss b/collects/scheme/match/parse-helper.ss index 411630d9cb..fa51b1269f 100644 --- a/collects/scheme/match/parse-helper.ss +++ b/collects/scheme/match/parse-helper.ss @@ -34,9 +34,9 @@ (vector? (syntax-e #'vec)) (make-Vector (for/list ([e (vector->list (syntax-e #'vec))]) (parse (quasisyntax/loc stx (quote #,e)))))] - [(quote bx) - (vector? (syntax-e #'bx)) - (make-Box (parse (quasisyntax/loc stx (quote #,(syntax-e #'bx)))))] + [(quote vec) + (vector? (syntax-e #'vec)) + (make-Box (parse (quasisyntax/loc stx (quote #,(syntax-e #'vec)))))] [(quote v) (or (parse-literal (syntax-e #'v)) (raise-syntax-error 'match "non-literal in quote pattern" stx #'v))]