From 4070be1c1a60262e39a5e01e2640e780d49f076b Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Tue, 5 Jul 2005 21:37:21 +0000
Subject: [PATCH] exported coerce-contract

svn: r353
---
 collects/mzlib/private/contract.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/mzlib/private/contract.ss b/collects/mzlib/private/contract.ss
index 8a5251aa86..0da0cdb386 100644
--- a/collects/mzlib/private/contract.ss
+++ b/collects/mzlib/private/contract.ss
@@ -15,7 +15,8 @@ add struct contracts for immutable structs?
   (provide make-contract
            contract-proc
            raise-contract-error
-           build-compound-type-name)
+           build-compound-type-name
+           coerce-contract)
   
   (provide (rename -contract contract)
            any