@@ -726,6 +726,8 @@ i_case_3(Vs, Env, E, S) ->
726726i_clauses (Cs , Ctxt , Ren , Env , S ) ->
727727 i_clauses ([], Cs , Ctxt , Ren , Env , S ).
728728
729+ % % REUSE-IgnoreStart
730+
729731i_clauses (Es , Cs , Ctxt , Ren , Env , S ) ->
730732 % % Create templates for the switch expressions.
731733 {Ts , {Vs , Env0 }} = mapfoldl (fun (E , {Vs , Env_i }) ->
@@ -837,6 +839,8 @@ i_clause_head(C, Ts, Ren, Env, S) ->
837839 C1 = update_c_clause (C , Ps1 , G1 , B ),
838840 {set_clause_extras (C1 , Ren1 , Env1 , Size ), revert_size (S , S5 )}.
839841
842+ % % REUSE-IgnoreEnd
843+
840844add_match_bindings (Bs , E ) ->
841845 % % Don't waste time if the variables definitely cannot be used.
842846 % % (Most guards are simply `true'.)
@@ -849,13 +853,17 @@ add_match_bindings(Bs, E) ->
849853 c_let (Vs , c_values (Es ), E )
850854 end .
851855
856+ % % REUSE-IgnoreStart
857+
852858i_clause_body (C0 , Ctxt , S ) ->
853859 {C , Ren , Env , Size } = get_clause_extras (C0 ),
854860 S1 = count_size (Size , S ),
855861 {B , S2 } = i (clause_body (C ), Ctxt , Ren , Env , S1 ),
856862 C1 = update_c_clause (C , clause_pats (C ), clause_guard (C ), B ),
857863 {C1 , S2 }.
858864
865+ % % REUSE-IgnoreEnd
866+
859867get_clause_extras (C ) ->
860868 [{Ren , Env , Size } | As ] = get_ann (C ),
861869 {set_ann (C , As ), Ren , Env , Size }.
0 commit comments