From 0b7674cb068e4621d7e0aece0eb5c326bb52e092 Mon Sep 17 00:00:00 2001
From: Sam Tobin-Hochstadt <samth@racket-lang.org>
Date: Wed, 18 Apr 2012 16:50:53 -0400
Subject: [PATCH] Describe `cl' syntax class in match.

Closes PR 12657. Merge to 5.3.
---
 collects/racket/match/gen-match.rkt | 1 +
 1 file changed, 1 insertion(+)

diff --git a/collects/racket/match/gen-match.rkt b/collects/racket/match/gen-match.rkt
index 292c71edc9..18c2d770cc 100644
--- a/collects/racket/match/gen-match.rkt
+++ b/collects/racket/match/gen-match.rkt
@@ -10,6 +10,7 @@
 ;; go : syntax syntax syntax -> syntax
 (define (go/one parse stx expr clauses)
   (define-syntax-class cl
+    #:description "a clause with a pattern and a result"
     (pattern [p . rhs]
              #:with res (syntax/loc this-syntax [(p) . rhs])))
   (syntax-parse clauses