Examples/ocaml/contract/example_prog.ml

   1 open Swig
   2 open Example
   3
   4 let _ = print_endline "This won't throw."
   5 let _ = Printf.printf "Cos 1.0 is %f\n" (_cos '(1.0) as float)
   6 let _ = print_endline "This will throw."
   7 let _ = Printf.printf "Cos 5.0 is %f\n" (_cos '(5.0) as float)