fix PL_is_list

2012-10-08 18:26:40 +01:00 · 2012-10-08 18:26:40 +01:00 · b0ddda1fde
parent daf9f589b9
commit b0ddda1fde
1 changed files with 2 additions and 2 deletions
--- a/library/dialect/swi/fli/swi.c
+++ b/library/dialect/swi/fli/swi.c
@ -1799,7 +1799,7 @@ X_API int PL_is_list(term_t ts)
 {
  CACHE_REGS
  YAP_Term t = Yap_GetFromSlot(ts PASS_REGS);
-  return Yap_IsListTerm(t);
+  return !IsVarTerm(t) && (t == TermNil || IsPairTerm(t));
 }

 X_API int