Sign in
fuchsia
/
third_party
/
swig
/
2824b0cbb66e715490e1ef13250bd675d87b32d9
/
.
/
trunk
/
Examples
/
test-suite
/
ocaml
/
using_protected_runme.ml
blob: 4dc4fe1c9d6b3d8932e001fe4803162bbddd875d [
file
] [
log
] [
blame
]
open
Swig
open
Using_protected
let
f
=
new_FooBar C_void
let
_
=
(
invoke f
)
"x"
(
C_int
3
)
let
_
=
if
(
invoke f
)
"blah"
(
C_int
4
)
<>
(
C_int
4
)
then
raise
(
Failure
"blah(int)"
)