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

avoid \!

Browse Source
This commit is contained in:
Vítor Santos Costa 2013-11-25 12:16:10 +01:00
parent cbd0fa14e8
commit 42d3ca6459
3 changed files with 16 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
pl/corout.yap
View File

@ -157,30 +157,27 @@ redo_dif(Done, X, Y) :-
dif_suspend_on_lvars(LVars, redo_dif(Done, X, Y)). dif_suspend_on_lvars(LVars, redo_dif(Done, X, Y)).
redo_dif('$done', _, _). redo_dif('$done', _, _).
redo_freeze(Done, V, G0) :-
% If you called nonvar as condition for when, then you may find yourself % If you called nonvar as condition for when, then you may find yourself
% here. % here.
% %
% someone else (that is Cond had ;) did the work, do nothing % someone else (that is Cond had ;) did the work, do nothing
% %
redo_freeze(Done, _, _) :- nonvar(Done), !. (nonvar(Done) -> true ;
% %
% We still have some more conditions: continue the analysis. % We still have some more conditions: continue the analysis.
% %
redo_freeze(Done, _, when(C, G, Done)) :- !, G0 = when(C, G, Done) -> when(C, G, Done) ;
when(C, G, Done).
% %
% check if the variable was really bound % check if the variable was really bound
% %
redo_freeze(Done, V, G) :- var(V), !, var(V) -> internal_freeze(V, redo_freeze(Done,V,G0)) ;
internal_freeze(V, redo_freeze(Done,V,G)).
% %
% I can't believe it: we're done and can actually execute our % I can't believe it: we're done and can actually execute our
% goal. Notice we have to say we are done, otherwise someone else in % goal. Notice we have to say we are done, otherwise someone else in
% the disjunction might decide to wake up the goal themselves. % the disjunction might decide to wake up the goal themselves.
% %
redo_freeze('$done', _, G) :- Done = '$done', '$execute'(G0) ).
'$execute'(G).
% %
% eq is a combination of dif and freeze % eq is a combination of dif and freeze

6
pl/preds.yap
View File

@ -1093,3 +1093,9 @@ clause_property(ClauseRef, erased) :-
'$instance_property'(ClauseRef, 0, true). '$instance_property'(ClauseRef, 0, true).
clause_property(ClauseRef, predicate(PredicateIndicator)) :- clause_property(ClauseRef, predicate(PredicateIndicator)) :-
'$instance_property'(ClauseRef, 1, PredicateIndicator). '$instance_property'(ClauseRef, 1, PredicateIndicator).
'$set_predicate_attribute'(M:N/Ar, Flag, V) :-
functor(P, N, Ar),
'$set_flag'(P, M, Flag, V).

6
pl/protect.yap
View File

@ -48,6 +48,10 @@
'$hide'('$declare_module') :- !, fail. '$hide'('$declare_module') :- !, fail.
'$hide'('$store_clause') :- !, fail. '$hide'('$store_clause') :- !, fail.
'$hide'('$skip_list') :- !, fail. '$hide'('$skip_list') :- !, fail.
'$hide'('$win_insert_menu_item') :- !, fail. '$hide'('$win_insert_menu_item') :- !, fail.
'$hide'('$set_predicate_attribute') :- !, fail.
'$hide'('$parse_quasi_quotations') :- !, fail.
'$hide'('$quasi_quotation') :- !, fail.
'$hide'('$qq_open') :- !, fail.
'$hide'(Name) :- hide(Name), fail. '$hide'(Name) :- hide(Name), fail.