anchor.diff:  	  'self_tail_recursive' -> selfrec;	% call_only to selfrec
   	  _ -> Leafness
   	end,
  -      leafness(Is, NewLeafness);
  +      leafness(Is, IsClosure, NewLeafness);
       #icode_call{} ->
         case hipe_icode:call_type(I) of
   	'primop' -> 
  
positive.code:   case Leafness of
      true -> true;
      selfrec -> true;
      false -> false
    end.
  
  needs_redtest(Leafness) ->
    case Leafness of
      true -> false;
      selfrec -> true;
      false -> true
    end.
  
negative.code:        false -> Code3;
         true -> [mk_redtest()|Code3]
       end],
    Code5 = hipe_icode:mk_icode(MFA, FunArgs, IsClosure, IsLeaf,
  			      remove_dead_code(Code4),
  			      hipe_gensym:var_range(icode),
  