Hide "make-blame" from normal export.

svn: r17906
2010-01-31 01:47:07 +00:00 · 2010-01-31 01:47:07 +00:00 · f8df3608d4
commit f8df3608d4
parent 0e697067cb
1 changed files with 2 additions and 1 deletions
--- 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