diff options
author | dos-reis <gdr@axiomatics.org> | 2012-08-26 02:18:54 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2012-08-26 02:18:54 +0000 |
commit | e4d0798fd570256bd6d399ce714fe55293044da6 (patch) | |
tree | 99417eb99530f3dceda4f8f25c5718ea801be5f2 /src/interp/c-util.boot | |
parent | 8e50d849f23a839f2410cc388f97ee2dc4c76786 (diff) | |
download | open-axiom-e4d0798fd570256bd6d399ce714fe55293044da6.tar.gz |
* 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.
Diffstat (limited to 'src/interp/c-util.boot')
-rw-r--r-- | src/interp/c-util.boot | 10 |
1 files changed, 5 insertions, 5 deletions
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') == |