From 12db2be4aac1794adf0ccd41a56ce6a50c8ddd81 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Mon, 11 Jun 2001 20:23:57 +0000
Subject: [PATCH] fix '$abolish_all'

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@81 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 pl/preds.yap | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/pl/preds.yap b/pl/preds.yap
index 8f3771ea7..dc2e8acb5 100644
--- a/pl/preds.yap
+++ b/pl/preds.yap
@@ -342,7 +342,7 @@ abolish(X) :-
 '$abolish_all' :-
         current_predicate(_,P),
 	functor(P, Na, Ar),
-	'$new_abolish'(Na, Ar),
+	'$new_abolish'(Na/Ar),
 	fail.
 '$abolish_all'.