From 9481e3956d695613788706800739cf503d1c452c Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 31 Mar 2015 17:42:22 -0600 Subject: [PATCH] fix use of the wrong `blame` in `struct/dc` --- racket/collects/racket/contract/private/struct-dc.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket/collects/racket/contract/private/struct-dc.rkt b/racket/collects/racket/contract/private/struct-dc.rkt index baa25818bb..a9a0be9096 100644 --- a/racket/collects/racket/contract/private/struct-dc.rkt +++ b/racket/collects/racket/contract/private/struct-dc.rkt @@ -1429,7 +1429,7 @@ #,@(reverse s-chap-code) ;; built the last backwards, so reverse it here stronger-prop-desc (vector free-var ...))) - (struct/dc-error blame #,(opt/info-val opt/info) 'struct-name)))) + (struct/dc-error #,(opt/info-blame opt/info) #,(opt/info-val opt/info) 'struct-name)))) #:lifts s-lifts #:superlifts