From 12fd4bfc56b3e266a10959d3cf7b32382cf32472 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Wed, 18 Feb 2009 00:04:32 +0000 Subject: [PATCH] stxclass: convert rhs of #:with to syntax svn: r13714 --- collects/stxclass/private/codegen.ss | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/stxclass/private/codegen.ss b/collects/stxclass/private/codegen.ss index ba26d8c07d..4a08c7720b 100644 --- a/collects/stxclass/private/codegen.ss +++ b/collects/stxclass/private/codegen.ss @@ -111,8 +111,9 @@ (let ([inner (wrap-pvars (pattern-attrs p) (convert-sides rest main-var body-expr))]) - (with-syntax ([(x fail-k) (generate-temporaries #'(x fail-k))]) - #`(let ([x #,e] + (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))] [fail-k enclosing-fail]) #,(parse:pks (list #'x) (list (done-frontier #'x))