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

ProbLog versioning, ProbLog Tabling warning message instead of error

Browse Source
This commit is contained in:
Theofrastos Mantadelis
2010-10-06 12:59:18 +02:00
parent ff6bd1dda0
commit d1839b730c
4 changed files with 44 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
packages/ProbLog/problog/tabling.yap
View File

@@ -2,8 +2,8 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% $Date: 2010-09-28 21:04:43 +0200 (Tue, 28 Sep 2010) $
% $Revision: 4838 $
% $Date: 2010-10-06 12:56:13 +0200 (Wed, 06 Oct 2010) $
% $Revision: 4877 $
%
% This file is part of ProbLog
% http://dtai.cs.kuleuven.be/problog
@@ -328,8 +328,9 @@ problog_table(Name/Arity, Module) :-
atom_concat(['problog_', Name, '_tabled'], ExactName),
% Monte carlo tabling
table(Module:MCName/Arity),
assertz(problog_tabled(Module:Name/Arity)),
catch((table(Module:MCName/Arity),
assertz(problog_tabled(Module:Name/Arity))), _,
(format(user_error, 'Warning: Tabling was not enabled over compilation, montecarlo tabling is disabled!~nPredicate: ~q~n', [Module:MCName/Arity]))),
findall(_,(
OriginalPred =.. [OriginalName|Args],