:- multifile cvs_id/1.

cvs_summary :-
	(
	  cvs_id(Id),
	  clause(cvs_id(Id), true, Ref),
	  clause_property(Ref, file(File)),
	  time_file(File, Time),
	  % how do we know when it was actually loaded?!?!
          % load_file ... if(changed)  must know, but we don't.
	  % -- we could compare to the time in CVS/Entries to see
	  %    if it's been modified since checkout  
	  %
	  % -> make uses    '$time_source_file'(File, Time)
	  format('~a ~a ~a~n', [File, Id, Time]),
	  fail
	);
	true.
