From d0d85b2f31d631c5949e3fd54730498a536941c6 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 18 May 2016 19:32:32 -0500 Subject: [PATCH] fix source locations for listof applications and any other contract that is defined via define/subexpression-pos-prop --- racket/collects/racket/contract/private/guts.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket/collects/racket/contract/private/guts.rkt b/racket/collects/racket/contract/private/guts.rkt index e963333275..87706ac17d 100644 --- a/racket/collects/racket/contract/private/guts.rkt +++ b/racket/collects/racket/contract/private/guts.rkt @@ -429,7 +429,7 @@ (syntax->list #'(margs (... ...))))] [app (datum->syntax stx '#%app)]) (syntax-property - #'(app ctc/proc margs (... ...)) + (syntax/loc stx (app ctc/proc margs (... ...))) 'racket/contract:contract (vector this-one (list (car (syntax-e stx)))