suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Actually turn on old object-info hack mentioned in 4e451a1.

Browse Source 
original commit: 778f0c9fc4af1c36c378e3e7bbedeb47b27feeb7
This commit is contained in:
Stevie Strickland 2010-12-02 13:02:59 -05:00
parent d860b1a18a
commit de3c2dcc8a
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/tests/racket/contract-mzlib-test.rktl
View File

@ -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)) i<%>)
(test #t (contract-eval 'is-a?) (contract-eval `(contract (object-contract) ,o 'pos 'neg)) c%)) (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)]) (let ([c% (parameterize ([current-inspector (make-inspector)])
(contract-eval '(class object% (super-new))))]) (contract-eval '(class object% (super-new))))])
(test (list c% #f) (test (list c% #f)
@ -2785,7 +2781,6 @@ of the contract library does not change over time.
,obj ,obj
'pos 'pos
'neg)))) 'neg))))
|#
; ;
; ;