Sign in
fuchsia
/
third_party
/
swig
/
1915740af8c26720f366162c768c223bddb15c7c
/
.
/
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
)