From f6a90c0cacc7a49b91fe89de32aa680e1a94d830 Mon Sep 17 00:00:00 2001 From: Vitor Santos Costa Date: Sun, 31 Jul 2016 10:35:54 -0500 Subject: [PATCH] skip early_print --- pl/meta.yap | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/pl/meta.yap b/pl/meta.yap index 87de8fabb..3b2ac3175 100644 --- a/pl/meta.yap +++ b/pl/meta.yap @@ -31,7 +31,10 @@ meta_predicate declaration :- 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) :- 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), NM \= Mod, functor(NH,N,Ar), - '$early_print'(warning,redefine_imported(Mod,NM,N/Ar)), + print_message(warning,redefine_imported(Mod,NM,N/Ar)), erase(R), fail. '$not_imported'(_, _).