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

allow float matrix to be initialised with ints.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2098 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2008-02-13 15:20:59 +00:00
parent df0a199afb
commit 6d4edaa609
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
library/matrix/matrix.c
View File

@ -264,11 +264,14 @@ cp_float_matrix(YAP_Term tl,YAP_Term matrix)
return FALSE; return FALSE;
} }
th = YAP_HeadOfTerm(tl); th = YAP_HeadOfTerm(tl);
if (!YAP_IsFloatTerm(th)) { if (YAP_IsIntTerm(th)) {
d = YAP_IntOfTerm(th);
} else if (!YAP_IsFloatTerm(th)) {
/* ERROR */ /* ERROR */
return FALSE; return FALSE;
} } else {
d = YAP_FloatOfTerm(th); d = YAP_FloatOfTerm(th);
}
j[i] = d; j[i] = d;
tl = YAP_TailOfTerm(tl); tl = YAP_TailOfTerm(tl);
} }