From 28bbf99b88f39cf9f9ff0810c04764b99a1235cb Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Tue, 23 Feb 2010 04:18:29 +0000 Subject: [PATCH] Of course, it would help if this was correct. svn: r18289 original commit: 70b5fe6294cef704e00d642f8087d4249499155d --- collects/mzlib/private/contract-object.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mzlib/private/contract-object.ss b/collects/mzlib/private/contract-object.ss index f1e4c1d..7b7579f 100644 --- a/collects/mzlib/private/contract-object.ss +++ b/collects/mzlib/private/contract-object.ss @@ -294,7 +294,7 @@ (list 'field-name ...) (list field-ctc-var ...)))) #:first-order (lambda (val) - (make-wrapper-object obj #f (list 'method-name ...) (list 'field-name ...))))))))])))) + (check-object-contract val #f (list 'method-name ...) (list 'field-name ...))))))))])))) (define (check-object val blame)