From 7eaa0725244d5375173708b6789c554855885dc3 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 17 May 2013 09:54:48 -0500 Subject: [PATCH] fix srcloc-missing-from-exn bug in struct/dc --- collects/racket/contract/private/struct-dc.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/racket/contract/private/struct-dc.rkt b/collects/racket/contract/private/struct-dc.rkt index 47d7074398..405e764139 100644 --- a/collects/racket/contract/private/struct-dc.rkt +++ b/collects/racket/contract/private/struct-dc.rkt @@ -587,7 +587,7 @@ [(exp) (values #f #'exp)] [else (raise-syntax-error 'struct/dc "could not parse clause" stx clause)])) (indep-clause exp lazy? #'sel-name (name->sel-id #'id #'sel-name)))] - [_ (raise-syntax-error 'struct/dc "could not parse clause" stx #'clause)]))) + [_ (raise-syntax-error 'struct/dc "could not parse clause" stx clause)]))) (let ()