Logtalk 2.30.7 files.
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1973 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
@@ -34,7 +34,7 @@
|
||||
partition([], _, [], []).
|
||||
partition([X| L1], P, Small, Large) :-
|
||||
parameter(1, Type),
|
||||
( Type::(X < P) ->
|
||||
( (Type::(X < P)) ->
|
||||
Small = [X| Small1], Large = Large1
|
||||
; Small = Small1, Large = [X| Large1]
|
||||
),
|
||||
|
Reference in New Issue
Block a user