PageRenderTime 28ms CodeModel.GetById 22ms app.highlight 2ms RepoModel.GetById 1ms app.codeStats 0ms

/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)