From 4a33e9066c4e2024a2c790b207e2d80b708812c5 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Thu, 14 Mar 2002 19:11:42 +0000
Subject: [PATCH] fix abolish/2.

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

diff --git a/pl/preds.yap b/pl/preds.yap
index 8519c6828..083eb5f57 100644
--- a/pl/preds.yap
+++ b/pl/preds.yap
@@ -345,6 +345,8 @@ retractall(V) :- !,
 	'$recordedp'(M:T,_,_), fail.
 '$erase_all_clauses_for_dynamic'(_,_).
 
+abolish(Mod:N,A) :- !,
+	'$abolish'(N,A,Mod).
 abolish(N,A) :-
 	'$current_module'(Mod),
 	'$abolish'(N,A,Mod).