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:
@@ -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).
|
||||
|
Reference in New Issue
Block a user