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

fix numlist/3

Browse Source
This commit is contained in:
Vitor Santos Costa
2009-04-25 13:00:09 -05:00
parent 8ffcaf612e
commit 710d15e506
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
library/lists.yap
View File

@@ -384,7 +384,7 @@ numlist(L, U, Ns) :-
L =< U, L =< U,
numlist_(L, U, Ns). numlist_(L, U, Ns).
numlist_(U, U, [U]) :- !. numlist_(U, U, OUT) :- !, OUT = [U].
numlist_(L, U, [L|Ns]) :- numlist_(L, U, [L|Ns]) :-
succ(L, L2), succ(L, L2),
numlist_(L2, U, Ns). numlist_(L2, U, Ns).