fix numlist/3

2009-04-25 13:00:09 -05:00 · 2009-04-25 13:00:09 -05:00 · 710d15e506
commit 710d15e506
parent 8ffcaf612e
1 changed files with 1 additions and 1 deletions
--- a/library/lists.yap
+++ b/library/lists.yap
@ -384,7 +384,7 @@ numlist(L, U, Ns) :-
        L =< U,
        numlist_(L, U, Ns).

-numlist_(U, U, [U]) :- !.
+numlist_(U, U, OUT) :- !, OUT = [U].
 numlist_(L, U, [L|Ns]) :-
        succ(L, L2),
        numlist_(L2, U, Ns).