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:
vsc 2001-08-09 17:39:52 +00:00
parent 3759aa571b
commit 2da8c719a3
2 changed files with 2 additions and 1 deletions

View File

@ -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>

View File

@ -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]).