diff options
author | dos-reis <gdr@axiomatics.org> | 2007-09-25 08:36:55 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2007-09-25 08:36:55 +0000 |
commit | 31654e2babf33907914053ea1653bd465a625e51 (patch) | |
tree | e8945fba395454692c67a89279648bf3d07a9837 /src/interp/bc-matrix.boot.pamphlet | |
parent | 06e6b3ab540b836fe050b25b651f403ce4c4fdba (diff) | |
download | open-axiom-31654e2babf33907914053ea1653bd465a625e51.tar.gz |
* Makefile.pamphlet (<<bc-matrix.clisp>>): Remove.
(<<bc-util.clisp>>): Likewise.
(<<br-prof.clisp>>): Likewise.
* bc-matrix.boot.pamphlet: Push into BOOT package.
* bc-util.boot.pamphlet: Likewise.
* br-prof.boot.pamphlet: Likewise.
Diffstat (limited to 'src/interp/bc-matrix.boot.pamphlet')
-rw-r--r-- | src/interp/bc-matrix.boot.pamphlet | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/interp/bc-matrix.boot.pamphlet b/src/interp/bc-matrix.boot.pamphlet index 008722a6..f19d2948 100644 --- a/src/interp/bc-matrix.boot.pamphlet +++ b/src/interp/bc-matrix.boot.pamphlet @@ -46,6 +46,8 @@ <<*>>= <<license>> +)package "BOOT" + -- Basic Command matrix entry bcMatrix() == bcReadMatrix nil @@ -154,8 +156,8 @@ bcMatrixGen htPage == mat := htpProperty(htPage,'matrix) formula := LASSOC('formula,mat) => formula := formula.0 - rowVar := LASSOC('rowVar,mat).0 - colVar := LASSOC('colVar,mat).0 + rowVar := (LASSOC('rowVar,mat)).0 + colVar := (LASSOC('colVar,mat)).0 STRCONC('"matrix([[",formula,'" for ",colVar,'" in 1..", STRINGIMAGE ncols,'"] for ",rowVar,'" in 1..",STRINGIMAGE nrows,'"])") mat := htpProperty(htPage,'matrix) => |