diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

avoid unnecessary search

Browse Source
This commit is contained in:
Vitor Santos Costa 2015-01-15 23:07:35 -08:00
parent 8c605a65fe
commit 530764e196
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
pl/flags.yap
View File

@ -598,6 +598,7 @@ yap_flag(V,Out) :-
; ;
'$swi_current_prolog_flag'(V, Current) '$swi_current_prolog_flag'(V, Current)
-> ->
!,
(var(Out) -> (var(Out) ->
Current = Out Current = Out
; ;