From 61213fc7895de51c005eba3aff722f1a83b67734 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 5 Jul 2009 15:57:20 +0000 Subject: * algebra/matstor.spad.pamphlet (copyCol!): Return Void. --- src/ChangeLog | 4 ++++ src/algebra/matstor.spad.pamphlet | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/ChangeLog b/src/ChangeLog index 76895660..b3d12360 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2009-07-05 Gabriel Dos Reis + + * algebra/matstor.spad.pamphlet (copyCol!): Return Void. + 2009-07-05 Gabriel Dos Reis * interp/sys-driver.boot (AxiomCore::%sysInit): Have CLISP not be diff --git a/src/algebra/matstor.spad.pamphlet b/src/algebra/matstor.spad.pamphlet index f88db8c8..59ac489e 100644 --- a/src/algebra/matstor.spad.pamphlet +++ b/src/algebra/matstor.spad.pamphlet @@ -149,7 +149,7 @@ StorageEfficientMatrixOperations(R): Exports == Implementation where qsetelt!(cRow,j,qelt(aRow,j) * r) c - copyCol!: (ARR,REP,Integer,Integer) -> ARR + copyCol!: (ARR,REP,Integer,Integer) -> Void copyCol!(bCol,bb,j,n1) == for i in 0..n1 repeat qsetelt!(bCol,i,qelt(qelt(bb,i),j)) -- cgit v1.2.3