From 472ef1e87313230624d25cdd10b1c646a16c1b74 Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Tue, 23 Feb 2010 15:59:22 +0000 Subject: [PATCH] Other cleanups. svn: r18303 --- collects/scheme/private/class-internal.ss | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/collects/scheme/private/class-internal.ss b/collects/scheme/private/class-internal.ss index dfca957367..28dd9f988e 100644 --- a/collects/scheme/private/class-internal.ss +++ b/collects/scheme/private/class-internal.ss @@ -3040,13 +3040,10 @@ (unless (hash-ref field-ht m #f) (failed "no public field ~a" m))))))) -(define (object/c-check-first-order ctc obj blame) - (check-object-contract obj blame (object/c-methods ctc) (object/c-fields ctc))) - (define (object/c-proj ctc) (λ (blame) (λ (obj) - (object/c-check-first-order ctc obj blame) + (check-object-contract obj blame (object/c-methods ctc) (object/c-fields ctc)) (make-wrapper-object obj blame (object/c-methods ctc) (object/c-method-contracts ctc) (object/c-fields ctc) (object/c-field-contracts ctc))))) @@ -3076,8 +3073,7 @@ #:first-order (λ (ctc) (λ (obj) - (with-handlers ([exn:fail:contract? (λ (e) #f)]) - (object/c-check-first-order ctc obj #f)))))) + (check-object-contract obj #f (object/c-methods ctc) (object/c-fields ctc)))))) (define-syntax (object/c stx) (syntax-case stx ()