comparison src/may/matrix.yeti @ 591:eb27901664cd

Check for consistent lengths in fromRows/fromColumns; test for same in mapRows/mapColumns

 
 equal =
     equal' (==) vec.equal;
 
 fromRows rows =
+   (if any do r: vec.length r != vec.length (head rows) done rows then
+        failWith "Inconsistent row lengths in fromRows (\(map vec.length rows))";
+    fi;
     {
         size = { 
             rows = length rows, 
             columns = 
                 if empty? rows then 0
                 else vec.length (head rows) 
                 fi,
         },
         data = DenseRows (array rows)
-    };
+    });
 
 fromColumns cols =
+   (if any do c: vec.length c != vec.length (head cols) done cols then
+        failWith "Inconsistent column lengths in fromColumns (\(map vec.length cols))";
+    fi;
     {
         size = { 
             columns = length cols, 
             rows = 
                 if empty? cols then 0
                 else vec.length (head cols) 
                 fi,
         },
         data = DenseCols (array cols)
-    };
+    });
 
 fromLists data = 
     case data of
     Rows rr: fromRows (map vec.fromList rr);
     Columns cc: fromColumns (map vec.fromList cc);