Sign in
android
/
platform
/
external
/
swig
/
7aafe3d8b2c8b138c431d5fcc98a4d2a7c3270f9
/
.
/
Examples
/
test-suite
/
schemerunme
/
dynamic_cast.scm
blob: ebb44de69461044adafa8c08e47d90131b7bc8fa [
file
] [
log
] [
blame
]
(
define
f
(
new-Foo
))
(
define
b
(
new-Bar
))
(
define
x
(
Foo-blah f
))
(
define
y
(
Bar-blah b
))
(
define
a
(
do
-test y
))
(
if
(
not
(
string=
?
a
"Bar::test"
))
(
error
"Failed!"
))
(
exit
0
)