extraction: cosmetic changes

src/mlw/compile.ml

@@ -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

src/mlw/ocaml_printer.ml

@@ -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