|Texp_function(_,pat_expr_list,partial)->not_normal~s:"The function involved has not been lifted properly during normalization;\n check the normalized file in _output folder.\n"()
|Texp_let(rf,fvs,pat_expr_list,body)->
...
...
@@ -687,8 +686,9 @@ let rec cfg_exp env e =
endelsebegin
iffvs_strict<>[]||fvs_others<>[]
thennot_in_normal_formloc("(unsatisfied value restriction) "
^(Print_tast.string_of_expressionfalsee));
thenunsupportedloc"relaxed value restriction";
(* not_in_normal_form loc ("(un value restriction) "