loops for matrices

I have to use a loop (while or for) to return the result of hadamard
product. now it returns a matrix, but when I use is.matrix() to check, it
returns FALSE, whats wrong?

Matrix.mul <- function(A, B)
{
    while(is.matrix(A) == FALSE | is.matrix(B) == FALSE )
         {print("error")
          break}
    while(is.matrix(A) == T & is.matrix(B) == T)
         {
          n <- dim(A)[1]; m <- dim(A)[2];
          p <- dim(B)[1]; q <- dim(B)[2];
          while(m == p)
               {
                C <- matrix(0, nrow = n , ncol = q)
                for(s in 1:n)
                   {
                    for(t in 1:q)
                       {
                        c <- array(0, dim = m )
                        for(k in 1:m)
                           {
                            c[k] <- A[s,k] * B[k, t]

                            }
                        C[s, t] <- sum(c)
                       }
                   }
                print(C)
                break
                }
          while(m != p)
               {
                print("error")
                break
                }
          break
          }
}

	[[alternative HTML version deleted]]