diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-04-20 21:49:59 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-04-20 21:49:59 +0000 |
| commit | 1e67a3445ddda759c38b455494350ed00390d73f (patch) | |
| tree | 720721577c197b4ff455f25ad767c9a8de5c5d94 /src/interp/bc-matrix.boot | |
| parent | 517b9dd50dcdf3f7881d5f682e8217174d03a211 (diff) | |
| download | open-axiom-1e67a3445ddda759c38b455494350ed00390d73f.tar.gz | |
more cleanup
Diffstat (limited to 'src/interp/bc-matrix.boot')
| -rw-r--r-- | src/interp/bc-matrix.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/bc-matrix.boot b/src/interp/bc-matrix.boot index 033bf212..18b93120 100644 --- a/src/interp/bc-matrix.boot +++ b/src/interp/bc-matrix.boot @@ -141,10 +141,10 @@ bcMatrixGen htPage == nrows := htpProperty(htPage,'nrows) ncols := htpProperty(htPage,'ncols) mat := htpProperty(htPage,'matrix) - formula := LASSOC('formula,mat) => + formula := symbolLassoc('formula,mat) => formula := formula.0 - rowVar := (LASSOC('rowVar,mat)).0 - colVar := (LASSOC('colVar,mat)).0 + rowVar := (symbolLassoc('rowVar,mat)).0 + colVar := (symbolLAssoc('colVar,mat)).0 strconc('"matrix([[",formula,'" for ",colVar,'" in 1..", STRINGIMAGE ncols,'"] for ",rowVar,'" in 1..",STRINGIMAGE nrows,'"])") mat := htpProperty(htPage,'matrix) => |