call fixes

2019-04-27 11:55:22 -05:00
parent 984cf8a07c
commit 54a222e5df
11 changed files with 251 additions and 185 deletions
--- a/packages/python/pybips.c
+++ b/packages/python/pybips.c
@@ -112,12 +112,12 @@ find_obj(PyObject *ob, term_t l, bool eval) {
  YAP_Term hd, yt;

  py_Context = NULL;
-  yt = YAP_GetFromSlot(l);
  // Yap_DebugPlWriteln(yt);
-  while (YAP_IsPairTerm(yt)) {
+  if (l == 0)
+    return Py_None;
+  while (YAP_IsPairTerm((yt = YAP_GetFromSlot(l)))) {
    hd = YAP_HeadOfTerm(yt);
-    yt = YAP_TailOfTerm(yt);
-    YAP_PutInSlot(l, yt);
+    Yap_PutInHandle(l, YAP_TailOfTerm(yt));
    ob = yap_to_python(hd, true, ob, false);
    if (!ob) {
      return Py_None;