From f9e7baa5157c7970eb5fbd36c46fbe68821875f1 Mon Sep 17 00:00:00 2001
From: RonaldoCMP <rcmpersiano@gmail.com>
Date: Sun, 11 Apr 2021 12:33:40 +0100
Subject: [PATCH] Review of is_matrix

---
 math.scad | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/math.scad b/math.scad
index 43b1347..1f6cb92 100644
--- a/math.scad
+++ b/math.scad
@@ -985,10 +985,8 @@ function determinant(M) =
 function is_matrix(A,m,n,square=false) =
    is_list(A)
    && (( is_undef(m) && len(A) ) || len(A)==m)
-   && is_list(A[0])
-   && (( is_undef(n) && len(A[0]) ) || len(A[0])==n)
    && (!square || len(A) == len(A[0]))
-   && is_vector(A[0])
+   && is_vector(A[0],n)
    && is_consistent(A);