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

Fixed PL_is_integer() and PL_is_number() so as to take bignums into account.

Browse Source
This commit is contained in:
Roberto Bagnara 2010-12-19 18:49:50 +01:00 committed by Vitor Santos Costa
parent ae89fa5728
commit cb7c2e0ca8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
library/dialect/swi/fli/swi.c
View File

@ -2212,7 +2212,7 @@ X_API int PL_is_float(term_t ts)
X_API int PL_is_integer(term_t ts) X_API int PL_is_integer(term_t ts)
{ {
YAP_Term t = Yap_GetFromSlot(ts); YAP_Term t = Yap_GetFromSlot(ts);
return YAP_IsIntTerm(t); return YAP_IsIntTerm(t) || YAP_IsBigNumTerm(t);
} }
X_API int PL_is_list(term_t ts) X_API int PL_is_list(term_t ts)
@ -2224,7 +2224,7 @@ X_API int PL_is_list(term_t ts)
X_API int PL_is_number(term_t ts) X_API int PL_is_number(term_t ts)
{ {
YAP_Term t = Yap_GetFromSlot(ts); YAP_Term t = Yap_GetFromSlot(ts);
return YAP_IsIntTerm(t) || YAP_IsFloatTerm(t); return YAP_IsIntTerm(t) || YAP_IsBigNumTerm(t) || YAP_IsFloatTerm(t);
} }
X_API int PL_is_string(term_t ts) X_API int PL_is_string(term_t ts)