WIP

Author: hhugo

compiler/lib/parse_bytecode.ml

@@ -774,8 +774,7 @@ let primitive_name state i =
 
 let access_global g i =
   match g.vars.(i) with
-  | Some x ->
-      x
+  | Some x -> x
   | None ->
       g.is_const.(i) <- true;
       let x = Var.fresh () in
@@ -820,11 +819,11 @@ let get_global state instrs i loc =
         if debug_parser () then Format.printf "%a = CONST(%d)@." Var.print x i;
         g.vars.(i) <- Some x;
         (match g.named_value.(i) with
-         | None -> ()
-         | Some name ->
-           match Shape.get_shape ~name with
-           | None -> ()
-           | Some shape -> Shape.assign x shape);
+        | None -> ()
+        | Some name -> (
+            match Shape.get_shape ~name with
+            | None -> ()
+            | Some shape -> Shape.assign x shape));
 
         x, state, instrs)
 
@@ -3000,8 +2999,7 @@ module Reloc = struct
     let constants = constants t in
     let globals = make_globals (Array.length constants) constants primitives in
     resize_globals globals t.pos;
-    Hashtbl.iter (fun name i ->
-        globals.named_value.(i) <- Some name) t.names;
+    Hashtbl.iter (fun name i -> globals.named_value.(i) <- Some name) t.names;
     (* Initialize module override mechanism *)
     List.iter override_global ~f:(fun (name, v) ->
         try