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

allow integer parameters.

Browse Source
This commit is contained in:
Vítor Santos Costa 2013-04-07 08:18:13 -05:00
parent a599699f0c
commit 4ab4f1cab1
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/CLPBN/horus/HorusYap.cpp
View File

@ -513,7 +513,11 @@ readParameters (YAP_Term paramL)
Params params; Params params;
assert (YAP_IsPairTerm (paramL)); assert (YAP_IsPairTerm (paramL));
while (paramL != YAP_TermNil()) { while (paramL != YAP_TermNil()) {
params.push_back ((double) YAP_FloatOfTerm (YAP_HeadOfTerm (paramL))); YAP_Term hd = YAP_HeadOfTerm (paramL);
if (YAP_IsFloatTerm(hd))
params.push_back ((double) YAP_FloatOfTerm (hd));
else
params.push_back ((double) YAP_IntOfTerm (hd));
paramL = YAP_TailOfTerm (paramL); paramL = YAP_TailOfTerm (paramL);
} }
if (Globals::logDomain) { if (Globals::logDomain) {