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

fix extra cp

Browse Source
This commit is contained in:
Vítor Santos Costa 2013-02-14 20:42:23 -06:00
parent 60969b9601
commit e27ceac1aa
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
library/system.yap
View File

@ -121,7 +121,7 @@ delete_file(IFile, Dir, Recurse, Ignore) :-
delete_file(N, File, _Dir, _Recurse, Ignore) :- number(N), !, % error. delete_file(N, File, _Dir, _Recurse, Ignore) :- number(N), !, % error.
handle_system_error(N, Ignore, delete_file(File)). handle_system_error(N, Ignore, delete_file(File)).
delete_file(directory, File, Dir, Recurse, Ignore) :- delete_file(directory, File, Dir, Recurse, Ignore) :-
delete_directory(Dir, File, Recurse, Ignore). delete_directory(Dir, File, Recurse, Ignore), !.
delete_file(_, File, _Dir, _Recurse, Ignore) :- delete_file(_, File, _Dir, _Recurse, Ignore) :-
unlink_file(File, Ignore). unlink_file(File, Ignore).