Sign in
fuchsia
/
third_party
/
swig
/
00b47d4d1d37ee0250f2f5da5cb27513f7811697
/
.
/
Examples
/
test-suite
/
chicken
/
overload_subtype_runme_proxy.ss
blob: d83d59a1138799af4da4adb8325aa180965ae602 [
file
] [
log
] [
blame
]
(
load
"./overload_subtype.so"
)
(
define
f
(
make
<
Foo
>
))
(
define
b
(
make
<
Bar
>
))
(
if
(
not
(
=
(
spam f
)
1
))
(
error
"Error in foo"
))
(
if
(
not
(
=
(
spam b
)
2
))
(
error
"Error in bar"
))
(
exit
0
)