/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. (if (not (string=? (do-blah a) "Foo::blah"))
  4. (error "bad return"))
  5. (if (not (string=? (do-blah b) "Bar::blah"))
  6. (error "bad return"))
  7. (define c (new-Spam))
  8. (define d (new-Grok))
  9. (if (not (string=? (do-blah2 c) "Spam::blah"))
  10. (error "bad return"))
  11. (if (not (string=? (do-blah2 d) "Grok::blah"))
  12. (error "bad return"))
  13. (exit 0)