fix current_predicate/1 and arg/3

2016-08-02 11:34:58 -05:00
parent d54446d736
commit 79a154cbf4
5 changed files with 109 additions and 39 deletions
--- a/C/cdmgr.c
+++ b/C/cdmgr.c
@@ -138,8 +138,10 @@ restart:
      goto restart;
    }
    return RepPredProp(Yap_GetPredPropByFunc(fun, tmod));
-  } else
-    return NULL;
+  } else {
+    Yap_Error(TYPE_ERROR_CALLABLE, t0, pname);
+  }
+  return NULL;
 }

 /** Look for a predicate with same functor as t,