is_list/1 is now a builtin.

2009-04-24 10:31:53 -05:00
parent ad617951ec
commit b5dc71d080
4 changed files with 20 additions and 15 deletions
--- a/library/yap2swi/yap2swi.c
+++ b/library/yap2swi/yap2swi.c
@@ -1403,12 +1403,7 @@ X_API int PL_is_integer(term_t ts)
 X_API int PL_is_list(term_t ts)
 {
  YAP_Term t = Yap_GetFromSlot(ts);
-  if (YAP_IsPairTerm(t)) {
-    return 1;
-  } else if (IsAtomTerm(t)) {
-    return t == TermNil;
-  } else
-    return 0;
+  return Yap_IsListTerm(t);
 }

 X_API int PL_is_number(term_t ts)