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

fix coroutining and goal expansion

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@115 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
uid49918 2001-07-04 16:45:42 +00:00
parent 45aacf6ad6
commit de8cbd046c
1 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
pl/corout.yap
View File

@ -61,7 +61,28 @@
%'), fail.
'$wake_up_goal'([Module1|Continuation], LG) :-
'$execute_woken_system_goals'(LG),
'$execute'(Module1:Continuation).
'$do_continuation'(Continuation, Module1).
%
% in the first two cases restore register immediately and proceed
% to continuation. In the last case take care with modules, but do
% not act as if a meta-call.
%
%
'$do_continuation'('$restore_regs'(X), _) :- !,
'$restore_regs'(X).
'$do_continuation'('$restore_regs'(X,Y), _) :- !,
'$restore_regs'(X,Y).
'$do_continuation'(Continuation, Module1) :-
'$mod_switch'(Module1,'$execute_continuation'(Continuation,Module1)).
'$execute_continuation'(Continuation, Module1) :-
'$undefined'(Continuation), !,
'$undefp'([Module1|Continuation]).
'$execute_continuation'(Continuation, _) :-
% do not do meta-expansion nor any fancy stuff.
'$execute0'(Continuation).
'$execute_woken_system_goals'([]).