Commit 8646c2d9 authored by POTTIER Francois's avatar POTTIER Francois

Added [CodeBits.pint].

parent 62ab70a1
......@@ -111,6 +111,11 @@ let etrue : expr =
let eboolconst b =
if b then etrue else efalse
(* Integer constants as patterns. *)
let pint k : pattern =
PData (string_of_int k, [])
(* These help build function types. *)
let arrow typ body : typ =
......
......@@ -43,6 +43,10 @@ val etrue: expr
val efalse: expr
val eboolconst: bool -> expr
(* Integer constants as patterns. *)
val pint: int -> pattern
(* These help build function types. *)
val arrow: typ -> typ -> typ
......
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