FIXED: meta_predicate/1 directive for call_nth/2.

This addresses #1021.

diff --git a/src/lib/iso_ext.pl b/src/lib/iso_ext.pl
index be44099f159db3af35b03502b293c3791b2d6b52..7ddc6bb7eebe21b1ec86dde2a4e2d4ab41ef4db0 100644 (file)
--- 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,