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
6 lines
170 B
Scheme
6 lines
170 B
Scheme
(list (interface? T<%>)
|
|
(class? C%)
|
|
(equal? (f 'dummy) '(dummy dummy))
|
|
(= (send (new C%) T<%>-x-get '()) 3)
|
|
(= (send (new C%) T<%>-y-get '()) 3))
|