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