[Yap-commits] CVS: pl preds.yap,1.3,1.4

[Vitor S. C. <vs...@us...>]

Update of /cvsroot/yap/pl
In directory usw-pr-cvs1:/tmp/cvs-serv5415/pl

Modified Files:
	preds.yap 
Log Message:
fix '$abolish_all'


Index: preds.yap
===================================================================
RCS file: /cvsroot/yap/pl/preds.yap,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- preds.yap	2001/05/28 19:54:53	1.3
+++ preds.yap	2001/06/11 20:23:57	1.4
@@ -342,7 +342,7 @@
 '$abolish_all' :-
         current_predicate(_,P),
 	functor(P, Na, Ar),
-	'$new_abolish'(Na, Ar),
+	'$new_abolish'(Na/Ar),
 	fail.
 '$abolish_all'.