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

fix memory leak in between/3.

Browse Source
This commit is contained in:
Vitor Santos Costa 2011-03-30 23:20:49 +01:00
parent 1de5dfacf9
commit a6d0944996
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/arith.yap
View File

@ -336,12 +336,12 @@ between(I,M,J) :-
'$between'(I,M,I) :- (I == M -> ! ; true ).
'$between'(I0,I,J) :- I0 < I,
I1 is I0+1,
'$plus'(I0, 1, I1),
'$between'(I1,I,J).
'$between_inf'(I,I).
'$between_inf'(I,J) :-
I1 is I+1,
'$plus'(I, 1, I1),
'$between_inf'(I1,J).