diff options
author | dos-reis <gdr@axiomatics.org> | 2009-09-26 18:43:36 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2009-09-26 18:43:36 +0000 |
commit | 1ea145d58ec94029d4f6e30a6f854f728154ad8c (patch) | |
tree | 676f0e73479516d288c33dcc3156029b71554d75 /src/interp/bc-solve.boot | |
parent | feb9d8d42ee30dbdad5184b654e3de461c06e7e7 (diff) | |
download | open-axiom-1ea145d58ec94029d4f6e30a6f854f728154ad8c.tar.gz |
More cleanup
Diffstat (limited to 'src/interp/bc-solve.boot')
-rw-r--r-- | src/interp/bc-solve.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/bc-solve.boot b/src/interp/bc-solve.boot index 1a8a5d21..73487edc 100644 --- a/src/interp/bc-solve.boot +++ b/src/interp/bc-solve.boot @@ -267,7 +267,7 @@ bcLinearSolveMatrix1 htPage == ("Not zero:" "the system is not homogeneous" bcLinearSolveMatrixInhomo nothomo))) htShowPage() -bcLinearExtractMatrix htPage == REVERSE htpInputAreaAlist htPage +bcLinearExtractMatrix htPage == reverse htpInputAreaAlist htPage bcLinearSolveMatrixInhomo(htPage,junk) == nrows := htpProperty(htPage,'nrows) @@ -301,7 +301,7 @@ bcLinearSolveMatrixHomo(htPage,key) == bcLinearMatrixGen(htPage,'homo) bcLinearMatrixGen(htPage,key) == matform := bcMatrixGen htPage key = 'homo => bcFinish('"nullSpace",matform) - vector := [x.1 for x in REVERSE htpInputAreaAlist htPage] + vector := [x.1 for x in reverse htpInputAreaAlist htPage] vecform := bcVectorGen vector form := bcMkFunction('"solve",matform,[vecform]) bcGen |