From c7ee5b600c1023f612df6c4549f0bde66eef1416 Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Wed, 14 Jan 2009 21:35:07 +0000 Subject: [PATCH] Change this more to how it should be. svn: r13124 --- collects/mzlib/private/contract-define.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/mzlib/private/contract-define.ss b/collects/mzlib/private/contract-define.ss index d1f3ea63ed..12891e145a 100644 --- a/collects/mzlib/private/contract-define.ss +++ b/collects/mzlib/private/contract-define.ss @@ -25,7 +25,7 @@ (syntax/loc stx ((contract contract-id id - (format "definition ~a" (syntax->datum (quote-syntax f))) + (syntax->datum (quote-syntax f)) neg-blame-str (quote-syntax f)) arg @@ -35,7 +35,7 @@ (syntax/loc stx (contract contract-id id - (format "definition ~a" (syntax->datum (quote-syntax ident))) + (syntax->datum (quote-syntax ident)) neg-blame-str (quote-syntax ident)))])))))