@@ -31,7 +31,7 @@ Import EWcbvEval.
3131Local Obligation Tactic := program_simpl.
3232
3333Record unsafe_passes :=
34- { fix_to_lazy : bool;
34+ { cofix_to_lazy : bool;
3535 reorder_constructors : bool;
3636 inlining : bool;
3737 unboxing : bool;
@@ -53,7 +53,7 @@ Definition default_dearging_config :=
5353
5454
5555Definition make_unsafe_passes b :=
56- {| fix_to_lazy := b;
56+ {| cofix_to_lazy := b;
5757 reorder_constructors := b;
5858 inlining := b;
5959 unboxing := b;
@@ -67,7 +67,7 @@ Definition all_unsafe_passes := make_unsafe_passes true.
6767 representation by reordering constructors or unboxing. *)
6868
6969Definition default_unsafe_passes :=
70- {| fix_to_lazy := true;
70+ {| cofix_to_lazy := true;
7171 reorder_constructors := false;
7272 inlining := true;
7373 unboxing := false;
@@ -127,7 +127,7 @@ Program Definition optional_unsafe_transforms econf :=
127127 let passes := econf.(enable_unsafe) in
128128 let efl := EConstructorsAsBlocks.switch_cstr_as_blocks
129129 (EInlineProjections.disable_projections_env_flag (ERemoveParams.switch_no_params EWellformed.all_env_flags)) in
130- ETransform.optional_self_transform passes.(fix_to_lazy )
130+ ETransform.optional_self_transform passes.(cofix_to_lazy )
131131 ((* Rebuild the efficient lookup table *)
132132 rebuild_wf_env_transform (efl := efl) false false ▷
133133 (* Coinductives & cofixpoints are translated to inductive types and thunked fixpoints *)
0 commit comments