File tree Expand file tree Collapse file tree 5 files changed +5
-7
lines changed Expand file tree Collapse file tree 5 files changed +5
-7
lines changed Original file line number Diff line number Diff line change @@ -259,7 +259,5 @@ let apply_lets occ lambda =
259
259
260
260
let simplify_lets (lam : Lam.t ) : Lam.t =
261
261
let occ = Lam_pass_count. collect_occurs lam in
262
- #ifndef RELEASE
263
- Ext_log. dwarn ~__POS__ " @[%a@]@." Lam_pass_count. pp_occ_tbl occ ;
264
- #endif
262
+ (* Ext_log.dwarn ~__POS__ "@[%a@]@." Lam_pass_count.pp_occ_tbl occ ; *)
265
263
apply_lets occ lam
Original file line number Diff line number Diff line change @@ -435,7 +435,7 @@ let lambda ppf v =
435
435
lambda ppf lam;
436
436
fprintf ppf "; lambda-failure" *)
437
437
438
- let seriaize (filename : string ) (lam : Lam.t ) : unit =
438
+ let serialize (filename : string ) (lam : Lam.t ) : unit =
439
439
let ou = open_out filename in
440
440
let old = Format. get_margin () in
441
441
let () = Format. set_margin 10000 in
Original file line number Diff line number Diff line change @@ -26,7 +26,7 @@ val lambda : Format.formatter -> Lam.t -> unit
26
26
27
27
val primitive : Format .formatter -> Lam_primitive .t -> unit
28
28
29
- val seriaize : string -> Lam .t -> unit
29
+ val serialize : string -> Lam .t -> unit
30
30
31
31
val lambda_to_string : Lam .t -> string
32
32
Original file line number Diff line number Diff line change @@ -121,7 +121,7 @@ let get_dependent_module_effect (maybe_pure : string option)
121
121
[lambda_exports] is
122
122
lambda expression to be exported
123
123
for the js backend, we compile to js
124
- for the inliner, we try to seriaize it --
124
+ for the inliner, we try to serialize it --
125
125
relies on other optimizations to make this happen
126
126
{[
127
127
exports.Make = function () {.....}
Original file line number Diff line number Diff line change @@ -223,7 +223,7 @@ let dump ext lam =
223
223
begin
224
224
incr log_counter;
225
225
Ext_log. dwarn ~__POS__ " \n @[[TIME:]%s: %f@]@." ext (Sys. time () *. 1000. );
226
- Lam_print. seriaize
226
+ Lam_print. serialize
227
227
(Ext_filename. new_extension
228
228
! Location. input_name
229
229
(Printf. sprintf " .%02d%s.lam" ! log_counter ext)
You can’t perform that action at this time.
0 commit comments