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

Simplify the test case. Also, spam both my and Sam's inboxes.

Browse Source 
svn: r18171
This commit is contained in:
Stevie Strickland 2010-02-18 23:24:15 +00:00
parent 38522f0dca
commit f8d5234148
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/tests/mzscheme/contract-test.ss
View File

@ -4322,10 +4322,7 @@
(class object% (super-new) (define/public (m x) (zero? x)))
'pos
'neg)]
[d% (contract (class/c [m (-> any/c boolean?)])
(class c% (super-new) (define/override (m) (super m 5)))
'pos
'neg)])
[d% (class c% (super-new) (define/override (m) (super m 5)))])
(send (new d%) m)))
;