From 7b71395f638c1b6937f6d9478d8df4c248e92895 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Tue, 11 Dec 2001 15:39:28 +0000
Subject: [PATCH] fix abolish in sicstus mode

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@223 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 d38e3af58..2bc664055 100644
--- a/pl/preds.yap
+++ b/pl/preds.yap
@@ -369,7 +369,7 @@ abolish(X) :-
 	'$current_module'(M),
 	'$old_abolish'(X,M).
 
-'$new_abolish'(V,M) :- var(V,N), !,
+'$new_abolish'(V,M) :- var(V), !,
 	'$abolish_all'(M).
 '$new_abolish'(M:PS,_) :- !,
 	'$new_abolish'(PS,M).