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

fix bad use of skip_list.

Browse Source
This commit is contained in:
Vítor Santos Costa 2012-03-22 22:41:41 +00:00
parent 6b1574757e
commit 372f3d795e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pl/sort.yap
View File

@ -54,7 +54,7 @@ length(L, M) :-
M is N + 1, NL = [_|L], '$$_length2'(L, O, M) ). M is N + 1, NL = [_|L], '$$_length2'(L, O, M) ).
sort(L,O) :- sort(L,O) :-
'$skip_list'(L,NL,RL), '$skip_list'(NL,L,RL),
( RL == [] -> true ; ( RL == [] -> true ;
var(RL) -> '$do_error'(instantiation_error,sort(L,O)) ; var(RL) -> '$do_error'(instantiation_error,sort(L,O)) ;
'$do_error'(type_error(list,L),sort(L,O)) '$do_error'(type_error(list,L),sort(L,O))
@ -67,7 +67,7 @@ sort(L,O) :-
-> ->
L == [] L == []
; ;
'$skip_list'(O,NO,RO), '$skip_list'(NO,O,RO),
( RO == [] -> NO =< NL ; ( RO == [] -> NO =< NL ;
var(RO) -> NO =< NL ; var(RO) -> NO =< NL ;
'$do_error'(type_error(list,O),sort(L,O)) '$do_error'(type_error(list,O),sort(L,O))