fix op
This commit is contained in:
parent
2908d4ccbd
commit
26e0bfdf06
|
@ -16,12 +16,14 @@
|
||||||
*************************************************************************/
|
*************************************************************************/
|
||||||
|
|
||||||
|
|
||||||
|
:- module('$coroutining',[
|
||||||
|
op(1150, fx, block)
|
||||||
%dif/2,
|
%dif/2,
|
||||||
%when/2,
|
%when/2,
|
||||||
%block/1,
|
%block/1,
|
||||||
%wait/1,
|
%wait/1,
|
||||||
%frozen/2
|
%frozen/2
|
||||||
:- module('$coroutining',[]).
|
]).
|
||||||
|
|
||||||
|
|
||||||
attr_unify_hook(DelayList, _) :-
|
attr_unify_hook(DelayList, _) :-
|
||||||
|
@ -62,8 +64,6 @@ attgoal_for_delay(_, V) --> [].
|
||||||
%
|
%
|
||||||
% operators defined in this module:
|
% operators defined in this module:
|
||||||
%
|
%
|
||||||
:- op(1150, fx, block).
|
|
||||||
|
|
||||||
prolog:freeze(V, G) :-
|
prolog:freeze(V, G) :-
|
||||||
var(V), !,
|
var(V), !,
|
||||||
freeze_goal(V,G).
|
freeze_goal(V,G).
|
||||||
|
|
Reference in New Issue