Removed useless cuts, using:

make cmd.prolog CMD="[ref_cut],ref_cut(_),rcommit"

where ref_cut is:

ref_cut(M) :-
    replace_sentence((H :- A), (@@(A,H)),
		     ( A==!,
		       H \= (_:_),
		       predicate_property(M:H, number_of_clauses(Idx)),
		       stream_position_data(line_count, Pos, Line),
		       nth_clause(M:H,Idx, Ref),
		       clause_property(Ref,line_count(Line)),
		       \+predicate_property(M:H,dynamic),
		       \+predicate_property(M:H,multifile)
		     ), [module(M),
			 term_position(Pos),
			 dir(src/main)]).