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

skip early_print

Browse Source
This commit is contained in:
Vitor Santos Costa 2016-07-31 10:35:54 -05:00
parent 12664254e9
commit f6a90c0cac
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pl/meta.yap
View File

@ -31,7 +31,10 @@ meta_predicate declaration
:- dynamic prolog:'$meta_predicate'/4. :- dynamic prolog:'$meta_predicate'/4.
:- multifile prolog:'$meta_predicate'/4, '$inline'/2. :- multifile prolog:'$meta_predicate'/4,
'$inline'/2,
'$full_clause_optimisation'/4.
'$meta_predicate'(M:P) :- '$meta_predicate'(M:P) :-
var(P), var(P),
@ -425,7 +428,7 @@ o:p(B) :- n:g, X is 2+3, call(B).
recorded('$import','$import'(NM,Mod,NH,H,_,_),R), recorded('$import','$import'(NM,Mod,NH,H,_,_),R),
NM \= Mod, NM \= Mod,
functor(NH,N,Ar), functor(NH,N,Ar),
'$early_print'(warning,redefine_imported(Mod,NM,N/Ar)), print_message(warning,redefine_imported(Mod,NM,N/Ar)),
erase(R), erase(R),
fail. fail.
'$not_imported'(_, _). '$not_imported'(_, _).