From 9851882dc7ba2e68ef6325080e4b3aeabf59dc43 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Tue, 18 Nov 2003 19:23:10 +0000
Subject: [PATCH] new version of sub_atom

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

diff --git a/pl/preds.yap b/pl/preds.yap
index 35bda2ab5..dbe2dec75 100644
--- a/pl/preds.yap
+++ b/pl/preds.yap
@@ -388,7 +388,8 @@ retract(C) :-
 
 '$retract2'(H,M,B) :- 	
 	'$is_log_updatable'(H, M), !,
-	'$log_update_retract'(H,M,B).
+	'$log_update_clause'(H,M,B,R),
+	erase(R).
 '$retract2'(H,M,B) :- 	
 	'$is_dynamic'(H,M), !,
 	'$recordedp'(M:H,(H:-B),R), erase(R).
@@ -465,7 +466,8 @@ retractall(V) :-
 	
 
 '$retractall_lu'(T,M) :-
-	'$log_update_retract'(T,M,_),
+	'$log_update_clause'(T,M,_,R),
+	erase(R),
 	fail.
 '$retractall_lu'(_,_).