From 4da9280a307ced3fab399d655b9d11330fc33bc4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Wed, 20 Jul 2022 01:49:36 +0200
Subject: Simplify templates.

---
 c/pl.cpp | 19 -------------------
 1 file changed, 19 deletions(-)

(limited to 'c/pl.cpp')

diff --git a/c/pl.cpp b/c/pl.cpp
index ef8aaf9..46ed717 100644
--- a/c/pl.cpp
+++ b/c/pl.cpp
@@ -91,22 +91,3 @@ int PL_get_tchars(const term_t t, TCHAR** const pTsz, const int iFlags)
 	return -1;
 #endif
 }
-
-/* Call nullary Prolog predicate, propagating Prolog exceptions. */
-int Plx(const char* const szMod, const char* const szPred)
-{
-	Frame f;
-	const term_t t = PL_new_term_refs(0);
-	Query q(NULL, PL_predicate(szPred, 0, szMod), t);
-	return q.NextSolution();
-}
-
-/* Call nullary Prolog predicate, ignoring Prolog exceptions. */
-int Pl(const char* const szMod, const char* const szPred)
-{
-	try {
-		return Plx(szMod, szPred);
-	} catch (term_t& t) {
-		return 0;
-	}
-}
-- 
cgit v1.2.3