Commit adcbf30c authored by POTTIER Francois's avatar POTTIER Francois

Added [CodeBits.eraisenotfound].

parent 204c6158
......@@ -114,11 +114,16 @@ let blet (bindings, body) =
let mlet formals actuals body =
blet (List.combine formals actuals, body)
(* [eraisenotfound] is an expression that raises [Not_found]. *)
let eraisenotfound =
ERaise (EData ("Not_found", []))
(* [bottom] is an expression that has every type. Its semantics is
irrelevant. *)
let bottom =
ERaise (EData ("Not_found", []))
eraisenotfound
(* Boolean constants. *)
......
......@@ -43,6 +43,10 @@ val pat2var: pattern -> string
val blet: (pattern * expr) list * expr -> expr
val mlet: pattern list -> expr list -> expr -> expr
(* [eraisenotfound] is an expression that raises [Not_found]. *)
val eraisenotfound: expr
(* [bottom] is an expression that has every type. Its semantics is
irrelevant. *)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment