From f8df3608d40f72ff73e6dd4f85ca81cd4454192c Mon Sep 17 00:00:00 2001
From: Carl Eastlund <cce@racket-lang.org>
Date: Sun, 31 Jan 2010 01:47:07 +0000
Subject: [PATCH] Hide "make-blame" from normal export.

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

diff --git a/collects/scheme/contract/private/guts.ss b/collects/scheme/contract/private/guts.ss
index 431f0f1601..1d3d2225ad 100644
--- a/collects/scheme/contract/private/guts.ss
+++ b/collects/scheme/contract/private/guts.ss
@@ -8,7 +8,8 @@
 (require (for-syntax scheme/base
                      "helpers.ss"))
 
-(provide (all-from-out "blame.ss" "prop.ss")
+(provide (except-out (all-from-out "blame.ss") make-blame)
+         (all-from-out "prop.ss")
          
          coerce-contract
          coerce-contracts