From 9b79cc7e8c4dfb9f53824dc59720f74260e32a11 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Fri, 23 Jan 2009 02:06:05 +0000 Subject: [PATCH] stxclass: fixed parsing of stxclass description svn: r13262 --- collects/stxclass/private/rep.ss | 6 +++--- collects/stxclass/private/sc.ss | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/stxclass/private/rep.ss b/collects/stxclass/private/rep.ss index f7110770bb..3e85f026c2 100644 --- a/collects/stxclass/private/rep.ss +++ b/collects/stxclass/private/rep.ss @@ -254,8 +254,8 @@ (exact-nonnegative-integer? (syntax-e #'depth))) (raise-syntax-error #f "bad attribute declaration" stx attr-stx)) (make-attr (syntax-e #'attr) (syntax-e #'depth) null))])) - description transparent? + description #'parser-expr)])) (define (parse-rhs*-patterns rest) @@ -271,10 +271,10 @@ (raise-syntax-error #f "syntax class has no variants" ctx)) (let ([sattrs (intersect-attrss (map rhs:pattern-attrs patterns) ctx)]) (make rhs:union stx sattrs - description transparent? + description patterns))) - + (syntax-case rest (pattern basic-syntax-class) [((basic-syntax-class . _)) (parse-rhs*-basic rest)] diff --git a/collects/stxclass/private/sc.ss b/collects/stxclass/private/sc.ss index 1730e6b948..be1d3b04da 100644 --- a/collects/stxclass/private/sc.ss +++ b/collects/stxclass/private/sc.ss @@ -158,7 +158,7 @@ (define-syntax (debug-rhs stx) (syntax-case stx () [(debug-rhs rhs) - (let ([rhs (parse-rhs #'rhs #f)]) + (let ([rhs (parse-rhs #'rhs #f stx)]) #`(quote #,rhs))])) (define-syntax (debug-pattern stx)