alms-0.4.9: examples/ex32-exceptions.alms
(* Do IO exceptions get converted? (should print nothing.) *) #load "libsocket" open Socket let dummy = let sock = socket () in try bind sock 3; failwith "bug: didn't raise!" with | IOError _ -> ()
(* Do IO exceptions get converted? (should print nothing.) *) #load "libsocket" open Socket let dummy = let sock = socket () in try bind sock 3; failwith "bug: didn't raise!" with | IOError _ -> ()