/trunk/Examples/test-suite/schemerunme/typedef_inherit.scm
Lisp | 19 lines | 13 code | 6 blank | 0 comment | 0 complexity | bdf5daf9754eda278ad756cc069c4fe4 MD5 | raw file
1(define a (new-Foo)) 2(define b (new-Bar)) 3 4(if (not (string=? (do-blah a) "Foo::blah")) 5 (error "bad return")) 6 7(if (not (string=? (do-blah b) "Bar::blah")) 8 (error "bad return")) 9 10(define c (new-Spam)) 11(define d (new-Grok)) 12 13(if (not (string=? (do-blah2 c) "Spam::blah")) 14 (error "bad return")) 15 16(if (not (string=? (do-blah2 d) "Grok::blah")) 17 (error "bad return")) 18 19(exit 0)