Source

ocamlspot / tests / exn.ml

1
2
3
4
5
6
7
exception (* Error => *) Error (* <= Error *) of int

let _ = raise (Error (* ? Error *) 1)

let _ = 1 + "hello"