From de3c2dcc8a5e45013a48751600d7199d21fee357 Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Thu, 2 Dec 2010 13:02:59 -0500 Subject: [PATCH] Actually turn on old object-info hack mentioned in 4e451a1. original commit: 778f0c9fc4af1c36c378e3e7bbedeb47b27feeb7 --- collects/tests/racket/contract-mzlib-test.rktl | 5 ----- 1 file changed, 5 deletions(-) diff --git a/collects/tests/racket/contract-mzlib-test.rktl b/collects/tests/racket/contract-mzlib-test.rktl index b18aa0d..28df566 100644 --- a/collects/tests/racket/contract-mzlib-test.rktl +++ b/collects/tests/racket/contract-mzlib-test.rktl @@ -2760,10 +2760,6 @@ of the contract library does not change over time. (test #t (contract-eval 'is-a?) (contract-eval `(contract (object-contract) ,o 'pos 'neg)) i<%>) (test #t (contract-eval 'is-a?) (contract-eval `(contract (object-contract) ,o 'pos 'neg)) c%)) - ;; Currently the new object contracts using impersonators don't even attempt to ensure that - ;; these reflective operations still work, and I'm not even sure they should. For now, I'll - ;; just comment them out so that we can revive them if we decide that they should work. - #| (let ([c% (parameterize ([current-inspector (make-inspector)]) (contract-eval '(class object% (super-new))))]) (test (list c% #f) @@ -2785,7 +2781,6 @@ of the contract library does not change over time. ,obj 'pos 'neg)))) -|# ; ;