include support for working_directory/2 as a system predicate.

2011-02-12 00:26:28 +00:00
parent 2451a052cb
commit 712300027e
5 changed files with 18 additions and 13 deletions
--- a/library/system.yap
+++ b/library/system.yap
@@ -43,7 +43,7 @@
 	mktime/2,
 	tmpnam/1,
 	tmp_file/2,
-  tmpdir/1,
+        tmpdir/1,
 	wait/2,
 	working_directory/2
          ]).
@@ -269,10 +269,6 @@ environ_split([61|SVal], [], SVal) :- !.
 environ_split([C|S],[C|SNa],SVal) :-
 	environ_split(S,SNa,SVal).

-working_directory(OLD, NEW) :-
-	getcwd(OLD),
-	cd(NEW).
-
 %
 % process execution
 %