1open Printf
2open Xentoollog
3open Xenlight
4
5let _ =
6  try
7    Xenlight.test_raise_exception ()
8  with Xenlight.Error(err, fn) -> begin
9    printf "Caught Exception: %s: %s\n" (Xenlight.string_of_error err) fn;
10  end
11
12