From 3a8a000fa4fb3f284dac5eeb5aa5f35332f5e811 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 27 Dec 2011 10:54:18 +0000
Subject: 	* algebra/matfuns.spad.pamphlet 
 (InnerMatrixLinearAlgebraFunctions) [rank]: Tidy.

---
 src/algebra/matfuns.spad.pamphlet | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/algebra/matfuns.spad.pamphlet')

diff --git a/src/algebra/matfuns.spad.pamphlet b/src/algebra/matfuns.spad.pamphlet
index cf739082..2f42249c 100644
--- a/src/algebra/matfuns.spad.pamphlet
+++ b/src/algebra/matfuns.spad.pamphlet
@@ -108,8 +108,10 @@ InnerMatrixLinearAlgebraFunctions(R,Row,Col,M):_
       x
 
     rank x ==
+      rk := nrows x
       y :=
-        (rk := nrows x) > (rh := ncols x) =>
+        rh := ncols x
+        rk > rh  =>
           rk := rh
           transpose x
         copy x
-- 
cgit v1.2.3