fix ord_del_element/3
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@137 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
3759aa571b
commit
2da8c719a3
@ -16,6 +16,7 @@
|
||||
|
||||
<h2>Yap-4.3.20:</h2>
|
||||
<ul>
|
||||
<li>FIXED: ord_del_element/3 (Nicos Angelopoulos).</li>
|
||||
<li>FIXED: texinfo warnings (Stasinos).</li>
|
||||
<li>FIXED: under emacs/win32: prompt if $EMACS=t and buf NULL.</li>
|
||||
<li>FIXED: ^C and readline (I hope).</li>
|
||||
|
@ -228,7 +228,7 @@ ord_del_element([Head1|Tail1], Head2, Rest) :-
|
||||
ord_del_element(=, _, Tail1, _, Tail1).
|
||||
ord_del_element(<, Head1, Tail1, Head2, [Head1|Difference]) :-
|
||||
ord_del_element(Tail1, Head2, Difference).
|
||||
ord_del_element(>, _, Tail1, _, Tail1).
|
||||
ord_del_element(>, Head1, Tail1, _, [Head1|Tail1]).
|
||||
|
||||
|
||||
|
||||
|
Reference in New Issue
Block a user