small refactoring

Author: hhugo

compiler/lib/specialize.ml

@@ -53,7 +53,7 @@ let count = ref 0
 
 let specialize_instr function_arity (acc, free_pc, extra) i =
   match i with
-  | Let (x, Apply { f; args; exact }), loc when (not exact) && Config.Flag.optcall () -> (
+  | Let (x, Apply { f; args; exact = false }), loc when Config.Flag.optcall () -> (
       let n' = List.length args in
       match function_arity f with
       | None -> i :: acc, free_pc, extra