From 7fddd1baa9d6b643302f8c243686d74741aa198a Mon Sep 17 00:00:00 2001
From: alfredoport <doyenatccny@gmail.com>
Date: Mon, 17 Sep 2007 00:00:35 +0000
Subject: Fix Bug 371

---
 src/algebra/ChangeLog             | 8 +++++++-
 src/algebra/newdata.spad.pamphlet | 2 +-
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/src/algebra/ChangeLog b/src/algebra/ChangeLog
index 8c392ad9..af89aa97 100644
--- a/src/algebra/ChangeLog
+++ b/src/algebra/ChangeLog
@@ -1,3 +1,9 @@
+2007-09-16  Alfredo Portes <alfredo.portes@gmail.com>
+	    Alasdair McAndrew <amca01@gmail.com>
+
+	* newdata.spad.pamphlet: Call FORCE_-OUTPUT
+	function instead of FLUSH.
+
 2007-08-06  Gabriel Dos Reis  <gdr@cs.tamu.edu>
 
 	* Makefile.pamphlet (strap/%.o): Tidy.  Don't pipe command
@@ -6,7 +12,7 @@
 
 	* Makefile.in: Regenerate.
 
-2007-06-20  Gabriel Dos Reis  <gdr@cs.tamu,edu>
+2007-06-20  Gabriel Dos Reis  <gdr@cs.tamu.edu>
 
 	* Makefile.pamphlet (mkdir-output-directory): Use $(mkinstalldirs).
 	(${OUT}/%.o): Be verbose.
diff --git a/src/algebra/newdata.spad.pamphlet b/src/algebra/newdata.spad.pamphlet
index 7e053170..3cc22ee6 100644
--- a/src/algebra/newdata.spad.pamphlet
+++ b/src/algebra/newdata.spad.pamphlet
@@ -34,7 +34,7 @@ InternalPrintPackage(): Exports == Implementation where
   Implementation == add
      iprint(s:String) == 
           PRINC(coerce(s)@Symbol)$Lisp
-          FLUSH()$Lisp
+          FORCE_-OUTPUT()$Lisp
 
 @
 \section{package TBCMPPK TabulatedComputationPackage}
-- 
cgit v1.2.3