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

fix different semantics for yapor.

Browse Source
This commit is contained in:
Vitor Santos Costa 2010-07-31 00:32:54 +01:00
parent f59f8e3f1a
commit b2c1523de6
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pl/consult.yap
View File

@ -187,9 +187,9 @@ ensure_loaded(Fs) :-
compile(Fs) :- compile(Fs) :-
'$load_files'(Fs, [], compile(Fs)). '$load_files'(Fs, [], compile(Fs)).
consult(Fs) :- % consult(Fs) :-
'$has_yap_or', % '$has_yap_or',
'$do_error'(context_error(consult(Fs),clause),query). % '$do_error'(context_error(consult(Fs),clause),query).
consult(V) :- consult(V) :-
var(V), !, var(V), !,
'$do_error'(instantiation_error,consult(V)). '$do_error'(instantiation_error,consult(V)).

8
pl/preds.yap
View File

@ -651,10 +651,10 @@ abolish(X) :-
print_message(warning,no_match(abolish(Module:Name/Arity))). print_message(warning,no_match(abolish(Module:Name/Arity))).
% I cannot allow modifying static procedures in YAPOR % I cannot allow modifying static procedures in YAPOR
% this code has to be here because of abolish/2 % this code has to be here because of abolish/2
'$abolishs'(G, Module) :- % '$abolishs'(G, Module) :-
'$has_yap_or', !, % '$has_yap_or', !,
functor(G,A,N), % functor(G,A,N),
'$do_error'(permission_error(modify,static_procedure,A/N),abolish(Module:G)). % '$do_error'(permission_error(modify,static_procedure,A/N),abolish(Module:G)).
'$abolishs'(G, M) :- '$abolishs'(G, M) :-
'$is_multifile'(G,M), !, '$is_multifile'(G,M), !,
functor(G,Name,Arity), functor(G,Name,Arity),