fix parallel_once/1
This commit is contained in:
parent
61f2c53b47
commit
b849d3a86d
@ -161,7 +161,7 @@ parallel_once(Goal) :-
|
|||||||
|
|
||||||
'$parallel_once_query'(Goal) :-
|
'$parallel_once_query'(Goal) :-
|
||||||
'$c_yapor_start',
|
'$c_yapor_start',
|
||||||
'$execute'(Goal), !,
|
'$execute'(once(Goal)),
|
||||||
recordz(parallel_once,Goal,_),
|
recordz(parallel_once,Goal,_),
|
||||||
fail.
|
fail.
|
||||||
'$parallel_once_query'(_).
|
'$parallel_once_query'(_).
|
||||||
|
Reference in New Issue
Block a user