fix parallel_once/1

This commit is contained in:
Ricardo Rocha 2011-06-22 19:20:56 +01:00
parent 61f2c53b47
commit b849d3a86d
1 changed files with 1 additions and 1 deletions

View File

@ -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'(_).