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/br-saturn.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/br-saturn.boot')
-rw-r--r-- | src/interp/br-saturn.boot | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/interp/br-saturn.boot b/src/interp/br-saturn.boot index 060a5289..7a5c8c5d 100644 --- a/src/interp/br-saturn.boot +++ b/src/interp/br-saturn.boot @@ -338,7 +338,7 @@ saturnPRINTEXP s == saturnTERPRI() == $browserOutputStream => writeNewline $browserOutputStream - TERPRI() + finishLine $OutputStream writeSaturnTable line == open := charPosition(char "{",line,0) @@ -1566,7 +1566,7 @@ mkButtonBox n == strconc('"\buttonbox{", STRINGIMAGE n, '"}") -- PRINC(0, comstream) -- PRINC($tick,comstream) -- PRINC('"", comstream) --- TERPRI(comstream) +-- finishLine(comstream) -- while (line := readLine instream) ~= %nothing repeat -- comP := FILE_-POSITION comstream -- if key ~= line.0 then @@ -1579,20 +1579,20 @@ mkButtonBox n == strconc('"\buttonbox{", STRINGIMAGE n, '"}") -- PRINC($tick ,outstream) -- null comments => -- PRINC(0,outstream) --- TERPRI(outstream) +-- finishLine(outstream) -- PRINC(comP,outstream) --- TERPRI(outstream) +-- finishLine(outstream) -- PRINC(key, comstream) --identifies file the backpointer is to -- PRINC(outP ,comstream) -- PRINC($tick ,comstream) -- PRINC(first comments,comstream) --- TERPRI(comstream) +-- finishLine(comstream) -- for c in rest comments repeat -- PRINC(key, comstream) --identifies file the backpointer is to -- PRINC(outP ,comstream) -- PRINC($tick ,comstream) -- PRINC(c, comstream) --- TERPRI(comstream) +-- finishLine(comstream) -- SHUT instream -- SHUT outstream -- SHUT comstream |