aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/matfuns.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/matfuns.spad.pamphlet')
-rw-r--r--src/algebra/matfuns.spad.pamphlet4
1 files changed, 3 insertions, 1 deletions
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