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

fix some cleanups

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2256 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2008-06-03 22:43:14 +00:00
parent 2335cd57a1
commit f868298acf
4 changed files with 41 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
library/lists.yap
View File

@@ -265,14 +265,14 @@ sublist(Sublist, [_|List]) :-
% is true when XList and YList only differ in that the elements X in XList
% are replaced by elements Y in the YList.
substitute(X, XList, Y, YList) :-
'$substitute'(XList, X, Y, YList).
substitute2(XList, X, Y, YList).
'$substitute'([], _, _, []).
'$substitute'([X0|XList], X, Y, [Y|YList]) :-
substitute2([], _, _, []).
substitute2([X0|XList], X, Y, [Y|YList]) :-
X == X0, !,
'$substitute'(XList, X, Y, YList).
'$substitute'([X0|XList], X, Y, [X0|YList]) :-
'$substitute'(XList, X, Y, YList).
substitute2(XList, X, Y, YList).
substitute2([X0|XList], X, Y, [X0|YList]) :-
substitute2(XList, X, Y, YList).
% suffix(Suffix, List)
% holds when append(_,Suffix,List) holds.