aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/matstor.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/matstor.spad.pamphlet')
-rw-r--r--src/algebra/matstor.spad.pamphlet3
1 files changed, 1 insertions, 2 deletions
diff --git a/src/algebra/matstor.spad.pamphlet b/src/algebra/matstor.spad.pamphlet
index f34f9e29..d0a1841f 100644
--- a/src/algebra/matstor.spad.pamphlet
+++ b/src/algebra/matstor.spad.pamphlet
@@ -189,8 +189,7 @@ StorageEfficientMatrixOperations(R): Exports == Implementation where
copy_!(a,c)
flag := true
copy_!(a,b)
--- one? p => return a
- (p = 1) => return a
+ one? p => return a
p := p quo 2
times_!(c,b,b)
copy_!(b,c)