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