From 934c775c2546157a2eae5e50d89466344fd7e19e Mon Sep 17 00:00:00 2001 From: Carl Eastlund Date: Tue, 19 Jan 2010 09:25:02 +0000 Subject: [PATCH] Fixed an expected contract message. svn: r17749 --- collects/mzlib/private/contract-define.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mzlib/private/contract-define.ss b/collects/mzlib/private/contract-define.ss index df8215baa0..9cd106fa94 100644 --- a/collects/mzlib/private/contract-define.ss +++ b/collects/mzlib/private/contract-define.ss @@ -14,7 +14,7 @@ (define-for-syntax (make-define/contract-transformer contract-id id) (make-set!-transformer (λ (stx) - (with-syntax ([neg-blame-str (source-location->string stx)] + (with-syntax ([neg-blame-str (source-location->string stx "<>")] [contract-id contract-id] [id id]) (syntax-case stx (set!)