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

fixed an open choice point

Browse Source
This commit is contained in:
Theofrastos Mantadelis 2011-02-15 13:34:48 +01:00 committed by Vítor Santos Costa
parent 3e77151af0
commit 2d54ccf355
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
library/flags.yap
View File

@ -10,8 +10,8 @@
% Contributions to this file: % Contributions to this file:
% Author: Theofrastos Mantadelis % Author: Theofrastos Mantadelis
% Sugestions: Bernd Gutmann, Paulo Moura % Sugestions: Bernd Gutmann, Paulo Moura
% $Date: 2011-02-04 16:06:56 +0100 (Fri, 04 Feb 2011) $ % $Date: 2011-02-15 13:33:01 +0100 (Tue, 15 Feb 2011) $
% $Revision: 12 $ % $Revision: 15 $
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
@ -434,11 +434,11 @@ flag_unsafe_set(FlagName, FlagValue):-
retract('$store_flag_value$'(FlagName, _)), retract('$store_flag_value$'(FlagName, _)),
assertz('$store_flag_value$'(FlagName, FlagValue)). assertz('$store_flag_value$'(FlagName, FlagValue)).
flag_get(FlagName, FlagValue):-
'$store_flag_value$'(FlagName, FlagValue).
flag_get(FlagName, FlagValue):- flag_get(FlagName, FlagValue):-
\+ '$store_flag_value$'(FlagName, _), \+ '$store_flag_value$'(FlagName, _),
throw(error(existence_error(flag, FlagName), message('The flag is not defined.', flag_get(FlagName, FlagValue)))). throw(error(existence_error(flag, FlagName), message('The flag is not defined.', flag_get(FlagName, FlagValue)))).
flag_get(FlagName, FlagValue):-
'$store_flag_value$'(FlagName, FlagValue).
flags_reset:- flags_reset:-
retractall('$store_flag_value$'(_, _)), retractall('$store_flag_value$'(_, _)),