Sign in
fuchsia
/
third_party
/
swig
/
3f3073547804f2e112085429ddfb691beba5a2ba
/
.
/
Examples
/
test-suite
/
ocaml
/
overload_subtype_runme.ml
blob: 6f0aeab56d188808a971173daa82cf35611c17d5 [
file
] [
log
] [
blame
]
open
Swig
open
Overload_subtype
let
_
=
let
f
=
new_Foo
'
()
and
b
=
new_Bar
'
()
in
assert
(
_spam
(
f
)
as
int
=
1
);
assert
(
_spam
(
b
)
as
int
=
2
)
;;