trunk/Examples/test-suite/schemerunme/overload_subtype.scm - third_party/swig - Git at Google

 (if (not (= (spam (new-Foo)) 1))
     (error "foo"))

 (if (not (= (spam (new-Bar)) 2))
     (error "bar"))

 (exit 0)
	(if (not (= (spam (new-Foo)) 1))
	(error "foo"))

	(if (not (= (spam (new-Bar)) 2))
	(error "bar"))

	(exit 0)