From 69ed5483cfae5a9660efb68a2d52dee3f6ab622b Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 9 Mar 2007 22:42:40 +0000 Subject: [PATCH] improved source locations for previous fix svn: r5765 --- collects/mzlib/private/contract.ss | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/mzlib/private/contract.ss b/collects/mzlib/private/contract.ss index a7841afc1c..cf59a8070a 100644 --- a/collects/mzlib/private/contract.ss +++ b/collects/mzlib/private/contract.ss @@ -1879,7 +1879,9 @@ add struct contracts for immutable structs? |# (define-syntax (struct/c stx) (syntax-case stx () - [(_ . args) (syntax (begin0 (do-struct/c . args)))])) + [(_ . args) + (with-syntax ([x (syntax/loc stx (do-struct/c . args))]) + (syntax/loc stx (begin0 x)))])) (define-syntax (do-struct/c stx) (syntax-case stx ()