From 96a8d96054833d13bb488e68f7aed583041e096d Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Wed, 12 Feb 2003 13:18:01 +0000
Subject: [PATCH] get rid of nasty choicepoint in eraseall.

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

diff --git a/pl/preds.yap b/pl/preds.yap
index a84e4933d..96c092973 100644
--- a/pl/preds.yap
+++ b/pl/preds.yap
@@ -348,9 +348,9 @@ retract(C,R) :-
 	functor(C, Na, Ar).
 	
 
-retractall(M:V) :-
+retractall(M:V) :- !,
 	'$retractall'(V,M).
-retractall(V) :- !,
+retractall(V) :-
 	'$current_module'(M),
 	'$retractall'(V,M).