365754f55c
- top.ss - commented out compile-failure tests for now - cce-notes.txt - added my preliminary notes about the Honu codebase - examples/*-test.ss - added *-test.ss files for all *.honu files svn: r943
9 lines
231 B
Scheme
9 lines
231 B
Scheme
(define EO (new EvenOddC%))
|
|
|
|
(list (interface? EvenOdd<%>)
|
|
(class? EvenOddC%)
|
|
(send EO EvenOdd<%>-even 4)
|
|
(not (send EO EvenOdd<%>-even 5))
|
|
(send EO EvenOdd<%>-odd 7)
|
|
(not (send EO EvenOdd<%>-odd 6)))
|