From 112811258b6c1ca2487fc72aaf1d13e97364cbb8 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Wed, 18 Feb 2009 04:44:38 +0000 Subject: [PATCH] stxclass: undo r13714, because it messes up non-stx attributes svn: r13723 --- collects/stxclass/private/codegen.ss | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/collects/stxclass/private/codegen.ss b/collects/stxclass/private/codegen.ss index 5bb8d59758..7d9d458f03 100644 --- a/collects/stxclass/private/codegen.ss +++ b/collects/stxclass/private/codegen.ss @@ -113,9 +113,8 @@ (let ([inner (wrap-pvars (pattern-attrs p) (convert-sides rest main-var body-expr))]) - (with-syntax ([(x fail-k) (generate-temporaries #'(x fail-k))] - [with-rhs (syntax/loc e with-rhs)]) - #`(let ([x (datum->syntax #f #,e (quote-syntax with-rhs))] + (with-syntax ([(x fail-k) (generate-temporaries #'(x fail-k))]) + #`(let ([x #,e] [fail-k enclosing-fail]) #,(parse:pks (list #'x) (list (done-frontier #'x))