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

fix swi falgs and set_prolog_flag/2.

Browse Source
This commit is contained in:
Vítor Santos Costa 2012-12-14 23:31:13 +00:00
parent 4d35c1f70a
commit 7811a697b8
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pl/flags.yap
View File

@ -1020,15 +1020,12 @@ set_prolog_flag(F,V) :-
set_prolog_flag(F,V) :- set_prolog_flag(F,V) :-
var(V), !, var(V), !,
'$do_error'(instantiation_error,set_prolog_flag(F,V)). '$do_error'(instantiation_error,set_prolog_flag(F,V)).
set_prolog_flag(F, Val) :-
prolog:'$user_defined_flag'(F,_,_,_), !,
yap_flag(F, Val).
set_prolog_flag(F,V) :- set_prolog_flag(F,V) :-
\+ atom(F), !, \+ atom(F), !,
'$do_error'(type_error(atom,F),set_prolog_flag(F,V)). '$do_error'(type_error(atom,F),set_prolog_flag(F,V)).
set_prolog_flag(F, Val) :- set_prolog_flag(F, Val) :-
prolog:'$user_defined_flag'(F,_,_,_), !, '$swi_current_prolog_flag'(F, _),
yap_flag(F, Val). '$swi_set_prolog_flag'(F, Val).
set_prolog_flag(F,V) :- set_prolog_flag(F,V) :-
'$yap_system_flag'(F), !, '$yap_system_flag'(F), !,
yap_flag(F,V). yap_flag(F,V).