diff options
author | dos-reis <gdr@axiomatics.org> | 2010-05-09 05:18:19 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-05-09 05:18:19 +0000 |
commit | ae1c8a6b70153b86b7ff1ec972ba5f7ce7e818f6 (patch) | |
tree | f0be83bb14b921031429fe3e37c7b5cff93d872c /src/interp/msgdb.boot | |
parent | 114fbbb2d4a1b9aca26064d8a2fcf180c65911d2 (diff) | |
download | open-axiom-ae1c8a6b70153b86b7ff1ec972ba5f7ce7e818f6.tar.gz |
* interp/cattable.boot: Replace call to CONS with bracket syntax.
* interp/clammed.boot: Likewise.
* interp/cparse.boot: Likewise.
* interp/dq.boot: Likewise.
* interp/fortcall.boot: Likewise.
* interp/g-boot.boot: Likewise.
* interp/i-coerce.boot: Likewise.
* interp/i-coerfn.boot: Likewise.
* interp/i-funsel.boot: Likewise.
* interp/i-object.boot: Likewise.
* interp/i-output.boot: Likewise.
* interp/i-resolv.boot: Likewise.
* interp/i-spec1.boot: Likewise.
* interp/i-spec2.boot: Likewise.
* interp/i-syscmd.boot: Likewise.
* interp/incl.boot: Likewise.
* interp/interop.boot: Likewise.
* interp/lisplib.boot: Likewise.
* interp/msgdb.boot: Likewise.
* interp/newfort.boot: Likewise.
* interp/nruncomp.boot: Likewise.
* interp/nrunopt.boot: Likewise.
* interp/rulesets.boot: Likewise.
* interp/scan.boot: Likewise.
* interp/termrw.boot: Likewise.
* interp/wi2.boot: Likewise.
Diffstat (limited to 'src/interp/msgdb.boot')
-rw-r--r-- | src/interp/msgdb.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/msgdb.boot b/src/interp/msgdb.boot index f3da9595..de7c61ea 100644 --- a/src/interp/msgdb.boot +++ b/src/interp/msgdb.boot @@ -130,7 +130,7 @@ segmentedMsgPreprocess x == while tail and ok repeat [t,:tail] := tail member(t, '(%ceoff "%ceoff" %rjoff "%rjoff")) => ok := NIL - y := CONS(segmentedMsgPreprocess t,y) + y := [segmentedMsgPreprocess t,:y] head1 := [(center => '"%ce"; '"%rj"),:nreverse y] null tail => [head1] [head1,:segmentedMsgPreprocess tail] @@ -779,7 +779,7 @@ brightPrintCenter(x,out == $OutputStream) == wid := sayBrightlyLength y if wid < $LINELENGTH then f := DIVIDE($LINELENGTH - wid,2) - y := CONS(fillerSpaces(f.0,'" "),y) + y := [fillerSpaces(f.0,'" "),:y] for z in y repeat brightPrint0(z,out) if x then sayNewLine(out) @@ -825,7 +825,7 @@ brightPrintRightJustify(x, out == $OutputStream) == y := nreverse y wid := sayBrightlyLength y if wid < $LINELENGTH then - y := CONS(fillerSpaces($LINELENGTH-wid,'" "),y) + y := [fillerSpaces($LINELENGTH-wid,'" "),:y] for z in y repeat brightPrint0(z,out) if x then sayNewLine(out) |