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

make cd look for ~ and $HOME expansion.

Browse Source
This commit is contained in:
ubu32 2011-07-11 07:40:43 -07:00
parent f968a745e8
commit e379928239
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pl/utils.yap
View File

@ -218,7 +218,9 @@ current_op(X,Y,Z) :-
cd :- cd :-
cd('~'). cd('~').
cd(F) :- absolute_file_name(F, Dir, [file_type(directory)]), working_directory(_, Dir). cd(F) :-
absolute_file_name(F, Dir, [file_type(directory),file_errors(fail),access(execute),expand(true)]),
working_directory(_, Dir).
getcwd(Dir) :- working_directory(Dir, Dir). getcwd(Dir) :- working_directory(Dir, Dir).