Logtalk 2.30.1 files.
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1903 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
@@ -6,11 +6,11 @@
|
||||
|
||||
|
||||
mod_length(List, Length) :-
|
||||
integer(Length) ->
|
||||
( integer(Length) ->
|
||||
Length >= 0,
|
||||
mod_make_list(Length, List)
|
||||
;
|
||||
mod_length(List, 0, Length).
|
||||
; mod_length(List, 0, Length)
|
||||
).
|
||||
|
||||
|
||||
mod_make_list(0, []):-
|
||||
|
Reference in New Issue
Block a user