diff options
author | dos-reis <gdr@axiomatics.org> | 2010-05-09 22:45:25 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-05-09 22:45:25 +0000 |
commit | d1ae1fd7646c2b81c3d23752f6956c7db888e916 (patch) | |
tree | 8efa5738e30f54559a22950f8b4c3dc33ab4c284 /src/interp/i-output.boot | |
parent | f42883e3da3524177b4a8c6f42c8e7b1646a6265 (diff) | |
download | open-axiom-d1ae1fd7646c2b81c3d23752f6956c7db888e916.tar.gz |
More cleanups
Diffstat (limited to 'src/interp/i-output.boot')
-rw-r--r-- | src/interp/i-output.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/i-output.boot b/src/interp/i-output.boot index a0bb9991..57d041ef 100644 --- a/src/interp/i-output.boot +++ b/src/interp/i-output.boot @@ -2280,7 +2280,7 @@ matSub(x) == matWidth(x) == y := CDDR x -- list of rows, each of form ((ROW . w) element element ...) - numOfColumns := LENGTH CDAR y + numOfColumns := # CDAR y widthList := matLSum2 matWList(y, NLIST(numOfColumns, 0)) --returns ["max width of entries in column i" for i in 1..numberOfRows] subspanList := matLSum matSubList y @@ -2289,10 +2289,10 @@ matWidth(x) == CAAR x.1 matLSum(x) == - [sumoverlist x + LENGTH x,:x] + [sumoverlist x + # x,:x] matLSum2(x) == - [sumoverlist x + 2*(LENGTH x),:x] + [sumoverlist x + 2*(# x),:x] matWList(x, y) == null x => y |