avoid unnecessary search

2015-01-15 23:07:35 -08:00 · 2015-01-15 23:07:35 -08:00 · 530764e196
commit 530764e196
parent 8c605a65fe
1 changed files with 1 additions and 0 deletions
--- 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
 	  ;