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

indenting; warning; exceptions; small fixes

Browse Source
This commit is contained in:
Vítor Santos Costa
2016-03-29 02:02:43 +01:00
parent 6bc4acec15
commit f3e8b8b3da
51 changed files with 2220 additions and 2221 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
packages/CLPBN/clpbn/table.yap
View File

@@ -204,7 +204,8 @@ in_table(K, V) :-
store_in_table(K, V) :-
b_getval(clpbn_tables, Tab),
b_hash_insert(Tab, K, V).
b_hash_insert(Tab, K, V, NewTab),
( Tab == NewTab -> true ; b_setval(clpbn_tables, NewTab)).
clpbn_tabled_clause(M:Head, Body) :- !,
clpbn_tabled_clause(Head, M, Body).