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

fix warning

Browse Source
This commit is contained in:
Vítor Santos Costa 2015-03-11 22:22:27 +00:00
parent 82d4716339
commit 04ff7f3f2d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pl/preds.yap
View File

@ -1,7 +1,7 @@
/************************************************************************* /*************************************************************************
* * * *
* YAP Prolog * * YAP Prolog *
* * * *
* Yap Prolog was developed at NCCUP - Universidade do Porto * * Yap Prolog was developed at NCCUP - Universidade do Porto *
* * * *
* Copyright L.Damas, V.S.Costa and Universidade do Porto 1985-1997 * * Copyright L.Damas, V.S.Costa and Universidade do Porto 1985-1997 *
@ -1171,12 +1171,12 @@ current_predicate(A,T) :-
format('`0 ~w~n', [M:T0]), format('`0 ~w~n', [M:T0]),
( (
'$current_predicate'(A, M, T0, Flags), '$current_predicate'(A, M, T0, Flags),
TFlags is Flags /\ 0x00004000, %TFlags is Flags /\ 0x00004000,
% format('1 ~w ~16r~n', [M:T0,Flags, TFlags]), % format('1 ~w ~16r~n', [M:T0,Flags, TFlags]),
Flags /\ 0x00004000 =:= 0x0 Flags /\ 0x00004000 =:= 0x0
; ;
'$imported_predicate'(A, M, A/_Arity, T0, Flags), '$imported_predicate'(A, M, A/_Arity, T0, Flags),
% format('2 ~w ~16r~n', [M:T0,Flags]), % format('2 ~w ~16r~n', [M:T0,Flags]),
Flags /\ 0x00004000 =:= 0x0 Flags /\ 0x00004000 =:= 0x0
). ).