diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix abolish in sicstus mode

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@223 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2001-12-11 15:39:28 +00:00
parent 6fd1a332d1
commit 7b71395f63
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pl/preds.yap
View File

@ -369,7 +369,7 @@ abolish(X) :-
'$current_module'(M), '$current_module'(M),
'$old_abolish'(X,M). '$old_abolish'(X,M).
'$new_abolish'(V,M) :- var(V,N), !, '$new_abolish'(V,M) :- var(V), !,
'$abolish_all'(M). '$abolish_all'(M).
'$new_abolish'(M:PS,_) :- !, '$new_abolish'(M:PS,_) :- !,
'$new_abolish'(PS,M). '$new_abolish'(PS,M).