diff options
Diffstat (limited to 'src/process_file.ml')
| -rw-r--r-- | src/process_file.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/process_file.ml b/src/process_file.ml index 443ea9b0..135f0931 100644 --- a/src/process_file.ml +++ b/src/process_file.ml @@ -174,12 +174,12 @@ let output1 libpath out_arg filename defs (* alldoc_accum alldoc_inc_accum alldo end | Lem_out None -> let ((o,temp_file_name, _) as ext_o) = open_output_with_check_unformatted (f' ^ "embed.lem") in - begin Pretty_print.pp_defs_ocaml o defs (generated_line filename) ["Sail_values";]; + begin Pretty_print.pp_defs_lem o defs (generated_line filename) ["Sail_values";]; close_output_with_check ext_o end | Lem_out (Some lib) -> let ((o,temp_file_name, _) as ext_o) = open_output_with_check_unformatted (f' ^ "embed.lem") in - Pretty_print.pp_defs_ocaml o defs (generated_line filename) ["Sail_values"; lib]; + Pretty_print.pp_defs_lem o defs (generated_line filename) ["Sail_values"; lib]; close_output_with_check ext_o | Ocaml_out None -> let ((o,temp_file_name, _) as ext_o) = open_output_with_check_unformatted (f' ^ ".ml") in |