FIXED: meta_predicate/1 directive for call_nth/2.
This addresses #1021.
This commit is contained in:
@@ -183,6 +183,8 @@ partial_string_tail(String, Tail) :-
|
|||||||
:- dynamic(i_call_nth_nesting/2).
|
:- dynamic(i_call_nth_nesting/2).
|
||||||
:- dynamic(i_call_nth_counter/1).
|
:- dynamic(i_call_nth_counter/1).
|
||||||
|
|
||||||
|
:- meta_predicate(call_nth(0, ?)).
|
||||||
|
|
||||||
call_nth(Goal, N) :-
|
call_nth(Goal, N) :-
|
||||||
can_be(integer, N),
|
can_be(integer, N),
|
||||||
( integer(N), N =< 0,
|
( integer(N), N =< 0,
|
||||||
|
|||||||
Reference in New Issue
Block a user