From 0e56160e859d32adffb7c9df3cd78cde0bff8df8 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= Date: Fri, 15 Jul 2022 02:36:07 +0200 Subject: Don't crash on Prolog exceptions. In the future, it may be desirable to convert Prolog exceptions to C++ exceptions. --- c/defs.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'c/defs.h') diff --git a/c/defs.h b/c/defs.h index f57989c..766682e 100644 --- a/c/defs.h +++ b/c/defs.h @@ -110,7 +110,7 @@ int Pl(const char *szMod, const char *szPred, T... args) int iArity = Countv(0, args...); term_t t = PL_new_term_refs(iArity); if (!PlPutv(t, args...)) return 0; - if (!PL_call_predicate(NULL, PL_Q_NORMAL, PL_predicate(szPred, iArity, szMod), t)) + if (!PL_call_predicate(NULL, PL_Q_CATCH_EXCEPTION, PL_predicate(szPred, iArity, szMod), t)) return 0; if (!PlGetv(t, args...)) return 0; return 1; -- cgit v1.2.3