fmt

flap/src/fopix/hobixToFopix.ml

@@ -130,8 +130,8 @@ let free_variables =
     | S.Define (vd, a) ->
       let liste_def_valeur =
         match vd with
-      | S.SimpleValue (id,expr) -> [(id,expr)]
-      | S.RecFunctions (list) -> list 
+        | S.SimpleValue (id, expr) -> [ id, expr ]
+        | S.RecFunctions list -> list
       in
       let id, expr = List.split liste_def_valeur in
       M.diff (unions fvs (a :: expr)) (M.of_list id)
@@ -149,7 +149,7 @@ let free_variables =
       unions fvs ((a :: ExtStd.Array.present_to_list b) @ c)
   in
   fun e -> M.elements (fvs e)
-
+;;
 
 (** A closure compilation environment relates an identifier to the way
     it is accessed in the compiled version of the function's