suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

improved source locations for previous fix

Browse Source 
svn: r5765
This commit is contained in:
Robby Findler 2007-03-09 22:42:40 +00:00
parent e61faf231e
commit 69ed5483cf
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mzlib/private/contract.ss
View File

@ -1879,7 +1879,9 @@ add struct contracts for immutable structs?
|# |#
(define-syntax (struct/c stx) (define-syntax (struct/c stx)
(syntax-case 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) (define-syntax (do-struct/c stx)
(syntax-case stx () (syntax-case stx ()