diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

nth_clause

Browse Source
This commit is contained in:
Vítor Santos Costa 2013-11-25 16:03:25 +01:00
parent 99a5fa55de
commit def97602e2
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pl/preds.yap
View File

@ -374,6 +374,10 @@ nth_clause(V,I,R) :-
'$do_error'(type_error(callable,C),M:nth_clause(C,I,R)). '$do_error'(type_error(callable,C),M:nth_clause(C,I,R)).
'$nth_clause'(R,M,I,R) :- db_reference(R), !, '$nth_clause'(R,M,I,R) :- db_reference(R), !,
'$do_error'(type_error(callable,R),M:nth_clause(R,I,R)). '$do_error'(type_error(callable,R),M:nth_clause(R,I,R)).
'$nth_clause'(P,M,I,R) :- var(I), var(R), !,
'$number_of_clauses'(P,M,N), N > 0,
between(1, N, I),
'$nth_clause'(P,M,I,R).
'$nth_clause'(P,M,I,R) :- '$nth_clause'(P,M,I,R) :-
( '$is_log_updatable'(P,M) ; '$is_source'(P,M) ), !, ( '$is_log_updatable'(P,M) ; '$is_source'(P,M) ), !,
'$p_nth_clause'(P,M,I,R). '$p_nth_clause'(P,M,I,R).