anchor.diff:  		    Pre ++ Default++Post
   	    end
       end.
  -		
  -
  -remove_whitespace(Str) ->
  -    remove_whitespace(Str, []). 
  -remove_whitespace([], Acc) ->    
  +
  +remove_trailing_whitespace(Str) ->
  +    remove_trailing_whitespace(Str, []).
  +
  +remove_trailing_whitespace([], Acc) ->
       lists:reverse(Acc);
  -remove_whitespace([$,,$ ,$\r|S], Acc) ->
  -    remove_whitespace(S, [$\r,$,|Acc]);
  -remove_whitespace([$,,$ ,$\n|S], Acc) ->
  -    remove_whitespace(S, [$\n,$,|Acc]);
  -remove_whitespace([C|S], Acc) ->
  -    remove_whitespace(S, [C|Acc]).
  +remove_trailing_whitespace([$,,$ ,$\r| S], Acc) ->
  +    remove_trailing_whitespace(S, [$\r,$,| Acc]);
  +remove_trailing_whitespace([$,,$ ,$\n| S], Acc) ->
  +    remove_trailing_whitespace(S, [$\n,$,| Acc]);
  +remove_trailing_whitespace([C| S], Acc) ->
  +    remove_trailing_whitespace(S, [C| Acc]).
   
   
   has_parentheses(Node, Toks) ->
  
positive.code: 		    false
  	    end
      end.
  
negative.code: 
  -module(refac_prettypr).
  
  -export([format/1,print_ast/2, print_ast/3]).
  
   %% For casestudy purpose.
  -export([no_of_changed_funs_toks/1]).
  
  %% This functions are not actually used.
  -export([format/2,best/1,best/2,layout/1,lay_string/1,
  	 layout/2,get_ctxt_precedence/1,set_ctxt_precedence/2,
  	 get_ctxt_paperwidth/1,set_ctxt_paperwidth/2,
  	 get_ctxt_linewidth/1,set_ctxt_linewidth/2,
  	 get_ctxt_hook/1,set_ctxt_hook/2,get_ctxt_user/1,
  	 set_ctxt_user/2]).
  
  
  -import(refac_prettypr_0,
  