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

fix bug in coroutining support

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1078 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2004-06-16 14:09:34 +00:00
parent b13320c82e
commit 1e50d32aed
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pl/corout.yap
View File

@ -99,6 +99,8 @@
'$call_atts'(V,New) '$call_atts'(V,New)
). ).
'$call_atts'(V,_) :-
nonvar(V), !.
'$call_atts'(V,_) :- '$call_atts'(V,_) :-
'$undefined'(woken_att_do(_,_), attributes), !, '$undefined'(woken_att_do(_,_), attributes), !,
attributes:bind_attvar(V). attributes:bind_attvar(V).
@ -706,6 +708,7 @@ call_residue(Goal,Residue) :-
attributes:update_att(V, 0, G). attributes:update_att(V, 0, G).
'$frozen_goals'(V,Gs) :- '$frozen_goals'(V,Gs) :-
var(V),
attributes:get_att(V, 0, Gs), nonvar(Gs). attributes:get_att(V, 0, Gs), nonvar(Gs).