extraction: cosmetic changes

parent 1ecfbcc4
......@@ -835,10 +835,10 @@ module Transform = struct
open ML
let no_reads_writes_conflict spv spv_mreg =
let is_reg {pv_ity = ity} = match ity.ity_node with
let is_not_write {pv_ity = ity} = match ity.ity_node with
| Ityreg rho -> not (Mreg.mem rho spv_mreg)
| _ -> true in
Spv.for_all is_reg spv
Spv.for_all is_not_write spv
type subst = expr Mpv.t
......@@ -879,7 +879,7 @@ module Transform = struct
| _ -> false in
let restrict_subst = Mpv.filter p subst in
(* We begin the inlining of proxy variables in an [Efun] with a
restricted substituion. This keeps some proxy lets, preventing
restricted substitution. This keeps some proxy lets, preventing
undiserable captures inside the [Efun] expression. *)
let e, spv = expr info restrict_subst e in
mk (Efun (vl, e)), spv
......
......@@ -260,12 +260,12 @@ module Print = struct
syntax_arguments s print_constant fmt pvl
| _, Some s, _ ->
syntax_arguments s (print_expr ~paren:true info) fmt pvl;
| _, _, tl when is_rs_tuple rs ->
| _, None, tl when is_rs_tuple rs ->
fprintf fmt "@[(%a)@]"
(print_list comma (print_expr info)) tl
| _, _, [t1] when isfield ->
| _, None, [t1] when isfield ->
fprintf fmt "%a.%a" (print_expr info) t1 print_ident rs.rs_name
| _, _, tl when isconstructor () ->
| _, None, tl when isconstructor () ->
let pjl = get_record info rs in
begin match pjl, tl with
| [], [] ->
......@@ -280,9 +280,9 @@ module Print = struct
fprintf fmt "@[<hov 2>{ %a }@]"
(print_list2 semi equal (print_rs info) (print_expr info)) (pjl, tl)
end
| _, _, [] ->
| _, None, [] ->
(print_lident info) fmt rs.rs_name
| _, _, tl ->
| _, None, tl ->
fprintf fmt (protect_on paren "@[<hov 2>%a %a@]")
(print_lident info) rs.rs_name
(print_list space (print_expr ~paren:true info)) tl
......
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