Describe `cl' syntax class in match.

Closes PR 12657. Merge to 5.3.
2012-04-18 16:50:53 -04:00 · 2012-04-18 16:50:53 -04:00 · 0b7674cb06
commit 0b7674cb06
parent d76b0dac78
1 changed files with 1 additions and 0 deletions
--- 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