From 87b19de0a8b34a09253c6a4dbd56f6ace6e57bf9 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Thu, 3 Jan 2008 18:10:43 +0000
Subject: [PATCH] mostly finished the contract library changes

svn: r8195

original commit: 3cf6ed46738360cb84a414423d176e14bf79e803
---
 collects/mzlib/private/contract-object.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/mzlib/private/contract-object.ss b/collects/mzlib/private/contract-object.ss
index 4de48a0..8d48438 100644
--- a/collects/mzlib/private/contract-object.ss
+++ b/collects/mzlib/private/contract-object.ss
@@ -338,7 +338,8 @@
                   (let ([cls (make-wrapper-class 'wrapper-class 
                                                  '(method-name ...)
                                                  (list methods ...)
-                                                 '(field-name ...))])
+                                                 '(field-name ...)
+                                                 #t)])
                     (make-proj-contract
                      `(object-contract 
                        ,(build-compound-type-name 'method-name method-ctc-var) ...