From 2181cb4813bbe491a56d32218da2d56508bfccfe Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 27 Dec 2011 14:23:54 +0000
Subject: 	* interp/g-opt.boot (changeVariableDefinitionToStore): Tidy. 
 Remove handling of IF forms as no longer relevant. 	*
 algebra/matfuns.spad.pamphlet 	(MatrixLinearAlgebraFunctions) [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 2f42249c..1fdf3cc9 100644
--- a/src/algebra/matfuns.spad.pamphlet
+++ b/src/algebra/matfuns.spad.pamphlet
@@ -676,8 +676,10 @@ MatrixLinearAlgebraFunctions(R,Row,Col,M):Exports == Implementation where
         fm(maxRowIndex fm,maxColIndex fm)
 
       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