diff options
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) => |