From 1ea145d58ec94029d4f6e30a6f854f728154ad8c Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sat, 26 Sep 2009 18:43:36 +0000 Subject: More cleanup --- src/interp/bc-solve.boot | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/interp/bc-solve.boot') 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 -- cgit v1.2.3