From 31654e2babf33907914053ea1653bd465a625e51 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 25 Sep 2007 08:36:55 +0000
Subject: 	* 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.

---
 src/interp/bc-matrix.boot.pamphlet | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'src/interp/bc-matrix.boot.pamphlet')

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) =>
-- 
cgit v1.2.3