From e27ceac1aaa23c04c7ab6dbde2c3919dcbfce184 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@dcc.fc.up.pt>
Date: Thu, 14 Feb 2013 20:42:23 -0600
Subject: [PATCH] fix extra cp

---
 library/system.yap | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/library/system.yap b/library/system.yap
index bd30d8c5f..7dc64248a 100644
--- a/library/system.yap
+++ b/library/system.yap
@@ -121,7 +121,7 @@ delete_file(IFile, Dir, Recurse, Ignore) :-
 delete_file(N, File, _Dir, _Recurse, Ignore) :- number(N), !, % error.
 	handle_system_error(N, Ignore, delete_file(File)).
 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) :-
 	unlink_file(File, Ignore).