From 78fb13e6514e4788f24f4f6987ba1af775b3adb5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jo=C3=A3o=20Santos?= <jsantos@dcc.fc.up.pt>
Date: Mon, 27 Feb 2012 18:31:57 +0000
Subject: [PATCH] parallel_findfirst/3

---
 pl/yapor.yap | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/pl/yapor.yap b/pl/yapor.yap
index a50af54c0..9162d0a18 100644
--- a/pl/yapor.yap
+++ b/pl/yapor.yap
@@ -14,6 +14,7 @@
 :- meta_predicate 
    parallel(0),
    parallel_findall(?,0,?),
+   parallel_findfirst(?,0,?),
    parallel_once(0).
 
 
@@ -150,6 +151,13 @@ parallel_findall(Template,Goal,Answers) :-
    '$parallel_findall_recorded'(Refs,Answers).
 
 
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%                      parallel_findfirst/3                           %%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+parallel_findfirst(Template,Goal,Answer) :- 
+   parallel_findall(Template,(Goal,!),Answer).
+
 
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %%                         parallel_once/1                             %%