From b2c1523de695948674f16d7403e4fafd760c076b Mon Sep 17 00:00:00 2001 From: Vitor Santos Costa Date: Sat, 31 Jul 2010 00:32:54 +0100 Subject: [PATCH] fix different semantics for yapor. --- pl/consult.yap | 6 +++--- pl/preds.yap | 8 ++++---- 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/pl/consult.yap b/pl/consult.yap index c4d3dd7a2..ec3e0ee3a 100755 --- a/pl/consult.yap +++ b/pl/consult.yap @@ -187,9 +187,9 @@ ensure_loaded(Fs) :- compile(Fs) :- '$load_files'(Fs, [], compile(Fs)). -consult(Fs) :- - '$has_yap_or', - '$do_error'(context_error(consult(Fs),clause),query). +% consult(Fs) :- +% '$has_yap_or', +% '$do_error'(context_error(consult(Fs),clause),query). consult(V) :- var(V), !, '$do_error'(instantiation_error,consult(V)). diff --git a/pl/preds.yap b/pl/preds.yap index 88c2c62c4..ae3098ad4 100644 --- a/pl/preds.yap +++ b/pl/preds.yap @@ -651,10 +651,10 @@ abolish(X) :- print_message(warning,no_match(abolish(Module:Name/Arity))). % I cannot allow modifying static procedures in YAPOR % this code has to be here because of abolish/2 -'$abolishs'(G, Module) :- - '$has_yap_or', !, - functor(G,A,N), - '$do_error'(permission_error(modify,static_procedure,A/N),abolish(Module:G)). +% '$abolishs'(G, Module) :- +% '$has_yap_or', !, +% functor(G,A,N), +% '$do_error'(permission_error(modify,static_procedure,A/N),abolish(Module:G)). '$abolishs'(G, M) :- '$is_multifile'(G,M), !, functor(G,Name,Arity),