From e4d0798fd570256bd6d399ce714fe55293044da6 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 26 Aug 2012 02:18:54 +0000
Subject: 	* interp/br-saturn.boot: Replace TERPRI with finishLine. 
 * interp/c-util.boot: Likewise. 	* interp/clam.boot: Likewise. 	*
 interp/compiler.boot: Likewise. 	* interp/diagnostics.boot: Likewise. 
 * interp/format.boot: Likewise. 	* interp/functor.boot: Likewise. 
 * interp/g-error.boot: Likewise. 	* interp/ht-util.boot: Likewise. 
 * interp/i-syscmd.boot: Likewise. 	* interp/i-toplev.boot: Likewise. 
 * interp/postpar.boot: Likewise. 	* interp/setvars.boot: Likewise. 
 * interp/topics.boot: Likewise. 	* interp/trace.boot: Likewise.

---
 src/interp/c-util.boot | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'src/interp/c-util.boot')

diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot
index b1d09f25..5a07644d 100644
--- a/src/interp/c-util.boot
+++ b/src/interp/c-util.boot
@@ -662,7 +662,7 @@ printEnv E ==
     for y in x for j in 1.. repeat
       SAY('"******CONTOUR ",j,'", LEVEL ",i,'":******")
       for z in y repeat
-        TERPRI()
+        finishLine $OutputStream
         SAY("Properties Of: ",first z)
         for u in rest z repeat
           PRIN1 first u
@@ -677,7 +677,7 @@ prEnv E ==
     for y in x for j in 1.. repeat
       SAY('"******CONTOUR ",j,'", LEVEL ",i,'":******")
       for z in y | null symbolTarget("modemap",rest z) repeat
-        TERPRI()
+        finishLine $OutputStream
         SAY("Properties Of: ",first z)
         for u in rest z repeat
           PRIN1 first u
@@ -694,7 +694,7 @@ prModemaps E ==
       for z in y | not member(first z,listOfOperatorsSeenSoFar) and
         (modemap := symbolTarget("modemap",rest z)) repeat
           listOfOperatorsSeenSoFar:= [first z,:listOfOperatorsSeenSoFar]
-          TERPRI()
+          finishLine $OutputStream
           PRIN1 first z
           printString ": "
           PRETTYPRINT modemap
@@ -1024,7 +1024,7 @@ printSignature(before,op,[target,:argSigList]) ==
     for m in rest argSigList repeat (printString ","; printAny m)
   printString "_) -> "
   printAny target
-  TERPRI()
+  finishLine $OutputStream
  
 elapsedTime() ==
   currentTime:= TEMPUS_-FUGIT()
@@ -1038,7 +1038,7 @@ printStats [byteCount,elapsedSeconds] ==
   timeString := normalizeStatAndStringify elapsedSeconds
   if byteCount = 0 then SAY('"Time: ",timeString,'" SEC.") else
     SAY('"Size: ",byteCount,'" BYTES     Time: ",timeString,'" SEC.")
-  TERPRI()
+  finishLine $OutputStream
   nil
  
 extendsCategoryForm(domain,form,form') ==
-- 
cgit v1.2.3