From e600445407dbd4991aa7e30e19b95d9a77b21725 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 original commit: 934c775c2546157a2eae5e50d89466344fd7e19e --- 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 df8215b..9cd106f 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!)