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

extra live should not be needed ...

Browse Source
This commit is contained in:
Vítor Santos Costa 2011-05-09 22:03:35 +01:00
parent 026616963c
commit bbf83cb34d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/meld/meldi.yap
View File

@ -60,8 +60,7 @@ done.
delete(Fact) :-
nb_getval(meld_queue, Queue),
retract(meld_program:Fact),
nb_queue_enqueue(Queue, deleted(Fact)),
live.
nb_queue_enqueue(Queue, deleted(Fact)).
pop(Goal) :-
nb_getval(meld_queue, Queue),
@ -123,9 +122,10 @@ sum(Skel,Arg,Goal) :-
arg(Arg, Goal, A),
AN is A0+A,
arg(Arg, NGoal, AN),
format('S ~w~n',[Goal]),
push(NGoal).
sum(_Skel,_Arg,Goal) :-
format('S~w~n',[Goal]),
format('S ~w~n',[Goal]),
assert(meld_program:Goal),
fail.