diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

make it run under YAP.

Browse Source
This commit is contained in:
Vítor Santos Costa 2010-08-04 02:44:41 +01:00
parent ce73eb5683
commit 8df9099cbe
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/clib/test_process.pl
View File

@ -62,8 +62,8 @@ test(cwd, [true, condition(\+current_prolog_flag(windows, true))]) :-
cwd(Tmp) cwd(Tmp)
]), ]),
read_process(Out, CWD0), read_process(Out, CWD0),
normalize_space(atom(CWD), CWD0), system:normalize_space(atom(CWD), CWD0),
same_file(CWD, Tmp). system:swi_same_file(CWD, Tmp).
test(cwd, [true, condition(current_prolog_flag(windows, true))]) :- test(cwd, [true, condition(current_prolog_flag(windows, true))]) :-
tmp_dir(Tmp), tmp_dir(Tmp),
getenv('COMSPEC', Shell), getenv('COMSPEC', Shell),
@ -72,8 +72,8 @@ test(cwd, [true, condition(current_prolog_flag(windows, true))]) :-
cwd(Tmp) cwd(Tmp)
]), ]),
read_process(Out, CWD0), read_process(Out, CWD0),
normalize_space(atom(CWD), CWD0), system:normalize_space(atom(CWD), CWD0),
same_file(CWD, Tmp). system:swi_same_file(CWD, Tmp).
tmp_dir(Dir) :- tmp_dir(Dir) :-
getenv('TEMP', Dir), !. getenv('TEMP', Dir), !.