|
From: Vitor S. C. <vs...@us...> - 2001-06-11 20:24:00
|
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'.
|