YAP allows a list to execute

2017-02-26 20:34:17 +00:00 · 2017-02-26 20:34:17 +00:00 · 34d3d7c176
commit 34d3d7c176
parent f3b0e962a7
1 changed files with 3 additions and 0 deletions
--- a/C/cdmgr.c
+++ b/C/cdmgr.c
@ -118,6 +118,9 @@ restart:
    return RepPredProp(Yap_GetPredPropByAtom(AtomOfTerm(t), tmod));
  } else if (IsIntegerTerm(t) && tmod == IDB_MODULE) {
    return Yap_FindLUIntKey(IntegerOfTerm(t));
+  } else if (IsPairTerm(t)) {
+    t = Yap_MkApplTerm(FunctorCsult, 1, &t);
+    goto restart;
  } else if (IsApplTerm(t)) {
    Functor fun = FunctorOfTerm(t);
    if (IsExtensionFunctor(fun)) {