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

c-interface

Browse Source
This commit is contained in:
Vitor Santos Costa
2019-04-09 18:06:27 +01:00
parent 9ea395c031
commit fda10395b8
6 changed files with 35 additions and 62 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
library/matrix.yap
View File

@@ -653,7 +653,6 @@ Unify _NElems_ with the type of the elements in _Matrix_.
:- use_module(library(maplist)).
:- use_module(library(mapargs)).
:- use_module(library(lists)).
:- start_low_level_trace.
( X <== '[]'(Dims0, array) of T ) :-
var(X),
( T== ints -> true ; T== floats),
@@ -661,7 +660,6 @@ Unify _NElems_ with the type of the elements in _Matrix_.
foldl( norm_dim, Dims0, Dims, Bases, 1, _Size ),
matrix_new( T , Dims, _, X ),
matrix_base(X, Bases).
:- stop_low_level_trace.
( X <== '[]'(Dims0, array) of T ) :-
atom(X),
( T== ints -> true ; T== floats),