














brua

%   Purpose: A Bottoms-10 version of the VAX "lib" predicate.
%   Needs  : append/3 and memberchk/2

/*  Note: LIB.PL and LIB2.PL are two parts of one module.  They are
    separate because the user must be able to change the 'libdirectory'/1
    table with assert and retract, and therefore that file must not be
    compiled, while this one may be.  If you have an interpreter, or if
    'assert' *is* your compiler, you may merge the



















































































































































































































































































































































































































































































































































































































































































































ileName], FullName).
lib_(FileName, DirName, FullName)
	%  D -> D:F.pl
	append(FileName, ".pl", Extended)
ppend(DirName, [58|Extended], FullName).


%  
ck that the string does not contain two co
, two
%   full stops, or a full stop f
wed by a colon.  Let's face it,
% 
IS PREDICATE IS 




































































































































































































































































rolog


_li

















































































































































