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

ifix non ground flags

Browse Source
This commit is contained in:
Vitor Santos Costa 2011-08-31 13:53:03 -07:00
parent 347e654273
commit bdce2e7241
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
pl/flags.yap
View File

@ -335,7 +335,7 @@ yap_flag(version,X) :-
yap_flag(version_data,X) :- yap_flag(version_data,X) :-
var(X), !, var(X), !,
'$get_version_codes'(Major,Minor,Patch), '$get_version_codes'(Major,Minor,Patch),
X = yap(Major, Minor, Patch, _). X = yap(Major, Minor, Patch, 0).
yap_flag(version_data,X) :- yap_flag(version_data,X) :-
'$do_error'(permission_error(modify,flag,version),yap_flag(version_data,X)). '$do_error'(permission_error(modify,flag,version),yap_flag(version_data,X)).
@ -513,7 +513,8 @@ yap_flag(language,X) :-
yap_flag(debug,X) :- yap_flag(debug,X) :-
var(X), !, var(X), !,
('$debug_on'(true) '$debug_on'(Val),
(Val == true
-> ->
X = on X = on
; ;
@ -653,9 +654,9 @@ yap_flag(update_semantics,immediate) :- !,
yap_flag(update_semantics,X) :- yap_flag(update_semantics,X) :-
'$do_error'(domain_error(flag_value,update_semantics+X),yap_flag(update_semantics,X)). '$do_error'(domain_error(flag_value,update_semantics+X),yap_flag(update_semantics,X)).
yap_flag(toplevel_hook,X) :- yap_flag(toplevel_hook,G) :-
var(X), !, var(G), !,
( recorded('$toplevel_hooks',G,_) -> G ; true ). ( recorded('$toplevel_hooks',G,_) -> G ; G = false ).
yap_flag(toplevel_hook,G) :- !, yap_flag(toplevel_hook,G) :- !,
'$set_toplevel_hook'(G). '$set_toplevel_hook'(G).