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

miscellaneous fixes

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@556 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2002-07-17 20:25:30 +00:00
parent e476bc0abc
commit c27b23f3a5
12 changed files with 531 additions and 143 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
pl/corout.yap
View File

@@ -107,7 +107,8 @@
'$execute_woken_system_goal'('$redo_ground'(Done, X, Goal), _) :-
'$redo_ground'(Done, X, Goal).
'$execute_woken_system_goal'('$att_do'(V,New), _) :-
attributes:woken_att_do(V,New).
% make sure we are not trying to wake up again a bound variable.
( '$att_bound'(V) -> attributes:woken_att_do(V,New) ; true ).
freeze(V, G) :-
var(V), !,