set_binary_mode in stdout

Author: davesnx

mlx/pp.ml

@@ -32,6 +32,7 @@ let () =
       if !print_ml then Format.printf "%a@." Pprintast.structure str
       else
         let oc = stdout in
+        Out_channel.set_binary_mode oc true;
         output_string oc
           Ppxlib_ast.Compiler_version.Ast.Config.ast_impl_magic_number;
         output_value oc fname;