From 4e8869ad7f8dfe1de8b53d3696da5dd17824df0e Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 11 Oct 2007 08:14:53 +0000
Subject: 	* Makefile.pamphlet (<<nag-c02.clisp>>): Remove. 
 (<<nag-c05.clisp>>): Likewise. 	(<<nag-c06.clisp>>): Likewise. 
 (<<nag-d01.clisp>>): Likewise. 	(<<nag-d02.clisp>>): Likewise. 
 (<<nag-d03.clisp>>): Likewise. 	(<<nag-e01.clisp>>): Likewise. 
 (<<nag-e02.clisp>>): Likewise. 	(<<nag-e04.clisp>>): Likewise. 
 (<<nag-f01.clisp>>): Likewise. 	(<<nag-f02.clisp>>): Likewise. 
 (<<nag-f04.clisp>>): Likewise. 	(<<nag-f07.clisp>>): Likewise. 
 (<<nag-s.clisp>>): Likewise. 	* bc-matrix.boot.pamphlet
 (bcInputExplicitMatrix): Fix thinko. 	* showimp.boot.pamphlet
 (getCategoriesOfDomain): Likewise. 	* nag-c02.boot.pamphlet: Push into
 package "BOOT".  	* nag-c05.boot.pamphlet: Likewise.  	*
 nag-c06.boot.pamphlet: Likewise. Fix thinko.  	* nag-d01.boot.pamphlet:
 Likewise.  	* nag-d02.boot.pamphlet: Push into package "BOOT".  	*
 nag-d03.boot.pamphlet: Likewise.  	* nag-e01.boot.pamphlet: Likewise. Fix
 thinko.  	* nag-e02.boot.pamphlet: Push into package "BOOT".  	*
 nag-e02b.boot.pamphlet: Likewise.  	* nag-e04.boot.pamphlet: Likewise.
 Make compilable by bootsys.  	* nag-f01.boot.pamphlet: Push into package
 "BOOT".  	* nag-f02.boot.pamphlet: Likewise.  	*
 nag-f04.boot.pamphlet: Likewise.  	* nag-f07.boot.pamphlet: Likewise. 
 Fix thinko.  	* nag-s.boot.pamphlet: Likewise. 	*
 showimp.boot.pamphlet: Fix thinko.

---
 src/interp/nag-f07.boot.pamphlet | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

(limited to 'src/interp/nag-f07.boot.pamphlet')

diff --git a/src/interp/nag-f07.boot.pamphlet b/src/interp/nag-f07.boot.pamphlet
index 3de2bb32..a2eb3b2d 100644
--- a/src/interp/nag-f07.boot.pamphlet
+++ b/src/interp/nag-f07.boot.pamphlet
@@ -46,6 +46,8 @@
 <<*>>=
 <<license>>
 
+)package "BOOT"
+
 f07adf() ==
   htInitPage('"F07ADF - {\it LU} factorization of real {\it m} by {\it n} matrix",nil)
   htMakePage '(
@@ -267,10 +269,10 @@ f07aefSolve htPage ==
   bList := [['text,:prefix],:bList]
   equationPart := [
      '(domainConditions
-         (isDomain EM $EmptyMode)
+        (isDomain EM $EmptyMode)
          (isDomain S (String))
-         (isDomain F (Float))
-         (isDomain I (Integer)))
+          (isDomain F (Float))
+           (isDomain I (Integer)))
 	     ,:aList,:ipList,:bList]
   page := htInitPage('"F07AEF - Solution of a real system of linear equations with multiple right-hand sides after factorization by F07ADF",nil)
   htSay '"\menuitemstyle{}\tab{2} "
@@ -608,10 +610,10 @@ f07fefSolve htPage ==
   bList := [['text,:prefix],:bList]
   equationPart := [
      '(domainConditions
-         (isDomain EM $EmptyMode)
+        (isDomain EM $EmptyMode)
          (isDomain S (String))
-         (isDomain F (Float))
-         (isDomain I (Integer)))
+          (isDomain F (Float))
+           (isDomain I (Integer)))
 	     ,:aList,:bList]
   page := htInitPage('"F07FEF - Solution of a real symmetric positive-definite system of linear equations with multiple right-hand sides after factorization by F07FDF",nil)
   htSay '"\menuitemstyle{}\tab{2} "
-- 
cgit v1.2.3