From 530764e196d0f7fad87011a04a3ca1a88f301007 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Thu, 15 Jan 2015 23:07:35 -0800
Subject: [PATCH] avoid unnecessary search

---
 pl/flags.yap | 1 +
 1 file changed, 1 insertion(+)

diff --git a/pl/flags.yap b/pl/flags.yap
index 72dd877f3..5cfaac495 100644
--- a/pl/flags.yap
+++ b/pl/flags.yap
@@ -598,6 +598,7 @@ yap_flag(V,Out) :-
         ;
 	  '$swi_current_prolog_flag'(V, Current)
         ->
+	  !, 
 	  (var(Out) ->
 	      Current = Out
 	  ;