improved source locations for previous fix

svn: r5765
2007-03-09 22:42:40 +00:00 · 2007-03-09 22:42:40 +00:00 · 69ed5483cf
commit 69ed5483cf
parent e61faf231e
1 changed files with 3 additions and 1 deletions
--- 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 ()