mostly finished the contract library changes

svn: r8195 original commit: 3cf6ed46738360cb84a414423d176e14bf79e803
2008-01-03 18:10:43 +00:00 · 2008-01-03 18:10:43 +00:00 · 87b19de0a8
commit 87b19de0a8
parent 855f00a028
1 changed files with 2 additions and 1 deletions
--- 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) ...