make consult even load_files/2

define bootstrap/1 for initial consult


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1403 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2005-10-19 01:47:43 +00:00
parent e6a15addf5
commit 8b06ce9fe4
8 changed files with 103 additions and 88 deletions

View File

@@ -180,9 +180,6 @@ op(P,T,V) :- '$op2'(P,T,V).
%%% Operating System utilities
cd(A) :- atom(A), !, atom_codes(A,S), '$cd'(S).
cd(S) :- '$cd'(S).
getcwd(D) :- '$getcwd'(SD), atom_codes(D, SD).
system(A) :- atom(A), !, atom_codes(A,S), '$system'(S).