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

sum

Browse Source
This commit is contained in:
Vitor Santos Costa 2018-10-15 13:47:25 +01:00
parent a03aa3c27c
commit 70cb6ed01e
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
library/matrix.yap
View File

@ -775,6 +775,9 @@ rhs(log(RHS), Logs ) :- !,
rhs(exp(RHS), Logs ) :- !, rhs(exp(RHS), Logs ) :- !,
rhs(RHS, X1), rhs(RHS, X1),
matrix_to_exps( X1, Logs ). matrix_to_exps( X1, Logs ).
rhs(sum(RHS), Logs ) :- !,
rhs(RHS, X1),
matrix_sum( X1, Logs ).
rhs(S, NS) :- rhs(S, NS) :-
rhs_opaque( S ), !, rhs_opaque( S ), !,
S = NS. S = NS.

4
library/system.yap
View File

@ -788,15 +788,17 @@ path.
The predicates performs a left-recursive traversal. It does not protect against file system errors and it does not check for symbolic links. The predicates performs a left-recursive traversal. It does not protect against file system errors and it does not check for symbolic links.
*/ */
directory_map(D, P), directory_map(D, P) :-
working_directory(_, D), working_directory(_, D),
list_directory(D,L), list_directory(D,L),
d_map(L, P). d_map(L, P).
d_map([],_,_,_). d_map([],_,_,_).
d_map(['.'|Fs],D, P) :- d_map(['.'|Fs],D, P) :-
!,
d_map(Fs,D, P). d_map(Fs,D, P).
d_map(['..'|Fs],D, P) :- d_map(['..'|Fs],D, P) :-
!,
d_map(Fs, D, P). d_map(Fs, D, P).
d_map([D|Fs], D, P) :- d_map([D|Fs], D, P) :-
absolute_file_name( F, File, [prefix(D)] ), absolute_file_name( F, File, [prefix(D)] ),