




















4
%   Purpose: Handy versions of consult and reconsult using try_hard_to_see
%   Needs  : try_hard_to_see/4 from Util:TrySee.Pl

	%		BEWARE!!!
	%	This file contains user-modifiable tables
	%	(libdevice and libextension). Therefore,
	%	DO NOT COMPILE IT!!!

:- public
	(re)/1,
	(con)/1.

:- mode
	re(+),
	con(+),
	recon(+, +).

:- true, true.		%  the compiler doesn't like this.

:- op(1050, fx, (re)).		%   REconsult
:- op(1
 fx, (con)).		%   CONsult


(re Files) :-
	rec
iles, (re)).

(con Files) :-
	recon(Files,
n)).


recon(File, Flag) :-
	var(File)

	write('! recon: can''t '), write
g), put(32), write(File), nl.

n([], _) :- !.
recon([File
es], Flag) :- !,
	reco
le,  Flag),
	recon
es, Flag).
rec
File,Files
lag) :

	













































































































