fix high arity and nth clause

This commit is contained in:
Vítor Santos Costa 2013-11-25 18:32:11 +01:00
parent fae3da8659
commit 2343494f1e
1 changed files with 1 additions and 2 deletions

View File

@ -379,8 +379,7 @@ nth_clause(V,I,R) :-
between(1, N, I),
'$nth_clause'(P,M,I,R).
'$nth_clause'(P,M,I,R) :-
( '$is_log_updatable'(P,M) ; '$is_source'(P,M) ), !,
'$p_nth_clause'(P,M,I,R).
'$p_nth_clause'(P,M,I,R), writeln(R), !.
'$nth_clause'(P,M,I,R) :-
'$is_dynamic'(P,M), !,
'$nth_instancep'(M:P,I,R).