From e9b4a99c8f587de5de96cf2cebdaaf4c16b5a961 Mon Sep 17 00:00:00 2001
From: Markus Triska <triska@metalevel.at>
Date: Thu, 11 Nov 2021 19:26:27 +0100
Subject: [PATCH] FIXED: meta_predicate/1 directive for call_nth/2.

This addresses #1021.
---
 src/lib/iso_ext.pl | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/lib/iso_ext.pl b/src/lib/iso_ext.pl
index be44099f..7ddc6bb7 100644
--- a/src/lib/iso_ext.pl
+++ b/src/lib/iso_ext.pl
@@ -183,6 +183,8 @@ partial_string_tail(String, Tail) :-
 :- dynamic(i_call_nth_nesting/2).
 :- dynamic(i_call_nth_counter/1).
 
+:- meta_predicate(call_nth(0, ?)).
+
 call_nth(Goal, N) :-
     can_be(integer, N),
     (   integer(N), N =< 0,
-- 
2.54.0