anchor.diff:  	 get_ctxt_linewidth/1,set_ctxt_linewidth/2,
   	 get_ctxt_hook/1,set_ctxt_hook/2,get_ctxt_user/1,
   	 set_ctxt_user/2,print_ast/2]).
  +
  +-export([no_of_changed_funs/1]). %% For casestudy purpose.
  +
   
   -import(refac_prettypr_0,
   	[text/1,nest/2,above/2,beside/2,sep/1,par/1,par/2,
  
positive.code: 	    end
      end.
  		
  	    
      
  
negative.code:     {Paper,Ribbon} = get_paper_ribbon_width(F),
      best(Fun(F,Ctxt),Paper,Ribbon).
   
  no_of_changed_funs(AST) ->
      Forms = refac_syntax:form_list_elements(AST),
      Res =[case form_not_changed(Form) of 
  	      true -> 0;
  	      false -> 1
  	  end || Form <-Forms],
      lists:sum(Res).
  
  
  vertical_concat(Forms, FileFmt, Options) -> 
      vertical_concat(Forms, FileFmt, Options,"").
  