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

warnings

This commit is contained in:
Vítor Santos Costa 2018-11-15 15:38:40 +00:00
parent 4fed99c0aa
commit 50e1d90085
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
library/system.yap
View File

@ -791,16 +791,16 @@ The predicates performs a left-recursive traversal. It does not protect against
directory_map(D, P) :- directory_map(D, P) :-
working_directory(_, D), working_directory(_, D),
list_directory(D,L), list_directory(D,L),
d_map(L, P). d_map(L,D, P).
d_map([],_,_,_). d_map([],_,_).
d_map(['.'|Fs],D, P) :- d_map(['.'|Fs],D, P) :-
!, !,
d_map(Fs,D, P). d_map(Fs,D, P).
d_map(['..'|Fs],D, P) :- d_map(['..'|Fs],D, P) :-
!, !,
d_map(Fs, D, P). d_map(Fs, D, P).
d_map([D|Fs], D, P) :- d_map([F|Fs], D, P) :-
absolute_file_name( F, File, [prefix(D)] ), absolute_file_name( F, File, [prefix(D)] ),
f_map(File, P), f_map(File, P),
d_map(Fs, D, P). d_map(Fs, D, P).