Renamings.
This commit is contained in:
parent
abbebbf0f6
commit
3b318d0f06
8
AST.ml
8
AST.ml
@ -39,6 +39,7 @@ let sepseq_to_region to_region = function
|
|||||||
|
|
||||||
(* Keywords of LIGO *)
|
(* Keywords of LIGO *)
|
||||||
|
|
||||||
|
type kwd_and = Region.t
|
||||||
type kwd_begin = Region.t
|
type kwd_begin = Region.t
|
||||||
type kwd_case = Region.t
|
type kwd_case = Region.t
|
||||||
type kwd_const = Region.t
|
type kwd_const = Region.t
|
||||||
@ -56,6 +57,7 @@ type kwd_map = Region.t
|
|||||||
type kwd_mod = Region.t
|
type kwd_mod = Region.t
|
||||||
type kwd_not = Region.t
|
type kwd_not = Region.t
|
||||||
type kwd_of = Region.t
|
type kwd_of = Region.t
|
||||||
|
type kwd_or = Region.t
|
||||||
type kwd_patch = Region.t
|
type kwd_patch = Region.t
|
||||||
type kwd_procedure = Region.t
|
type kwd_procedure = Region.t
|
||||||
type kwd_record = Region.t
|
type kwd_record = Region.t
|
||||||
@ -93,8 +95,6 @@ type arrow = Region.t
|
|||||||
type assign = Region.t
|
type assign = Region.t
|
||||||
type equal = Region.t
|
type equal = Region.t
|
||||||
type colon = Region.t
|
type colon = Region.t
|
||||||
type bool_or = Region.t
|
|
||||||
type bool_and = Region.t
|
|
||||||
type lt = Region.t
|
type lt = Region.t
|
||||||
type leq = Region.t
|
type leq = Region.t
|
||||||
type gt = Region.t
|
type gt = Region.t
|
||||||
@ -476,8 +476,8 @@ and logic_expr =
|
|||||||
| CompExpr of comp_expr
|
| CompExpr of comp_expr
|
||||||
|
|
||||||
and bool_expr =
|
and bool_expr =
|
||||||
Or of bool_or bin_op reg
|
Or of kwd_or bin_op reg
|
||||||
| And of bool_and bin_op reg
|
| And of kwd_and bin_op reg
|
||||||
| Not of kwd_not un_op reg
|
| Not of kwd_not un_op reg
|
||||||
| False of c_False
|
| False of c_False
|
||||||
| True of c_True
|
| True of c_True
|
||||||
|
8
AST.mli
8
AST.mli
@ -23,6 +23,7 @@ val sepseq_to_region : ('a -> Region.t) -> ('a,'sep) sepseq -> Region.t
|
|||||||
|
|
||||||
(* Keywords of LIGO *)
|
(* Keywords of LIGO *)
|
||||||
|
|
||||||
|
type kwd_and = Region.t
|
||||||
type kwd_begin = Region.t
|
type kwd_begin = Region.t
|
||||||
type kwd_case = Region.t
|
type kwd_case = Region.t
|
||||||
type kwd_const = Region.t
|
type kwd_const = Region.t
|
||||||
@ -40,6 +41,7 @@ type kwd_map = Region.t
|
|||||||
type kwd_mod = Region.t
|
type kwd_mod = Region.t
|
||||||
type kwd_not = Region.t
|
type kwd_not = Region.t
|
||||||
type kwd_of = Region.t
|
type kwd_of = Region.t
|
||||||
|
type kwd_or = Region.t
|
||||||
type kwd_patch = Region.t
|
type kwd_patch = Region.t
|
||||||
type kwd_procedure = Region.t
|
type kwd_procedure = Region.t
|
||||||
type kwd_record = Region.t
|
type kwd_record = Region.t
|
||||||
@ -77,8 +79,6 @@ type arrow = Region.t (* "->" *)
|
|||||||
type assign = Region.t (* ":=" *)
|
type assign = Region.t (* ":=" *)
|
||||||
type equal = Region.t (* "=" *)
|
type equal = Region.t (* "=" *)
|
||||||
type colon = Region.t (* ":" *)
|
type colon = Region.t (* ":" *)
|
||||||
type bool_or = Region.t (* "||" *)
|
|
||||||
type bool_and = Region.t (* "&&" *)
|
|
||||||
type lt = Region.t (* "<" *)
|
type lt = Region.t (* "<" *)
|
||||||
type leq = Region.t (* "<=" *)
|
type leq = Region.t (* "<=" *)
|
||||||
type gt = Region.t (* ">" *)
|
type gt = Region.t (* ">" *)
|
||||||
@ -460,8 +460,8 @@ and logic_expr =
|
|||||||
| CompExpr of comp_expr
|
| CompExpr of comp_expr
|
||||||
|
|
||||||
and bool_expr =
|
and bool_expr =
|
||||||
Or of bool_or bin_op reg
|
Or of kwd_or bin_op reg
|
||||||
| And of bool_and bin_op reg
|
| And of kwd_and bin_op reg
|
||||||
| Not of kwd_not un_op reg
|
| Not of kwd_not un_op reg
|
||||||
| False of c_False
|
| False of c_False
|
||||||
| True of c_True
|
| True of c_True
|
||||||
|
Loading…
Reference in New Issue
Block a user