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/i-output.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/i-output.boot')
-rw-r--r-- | src/interp/i-output.boot | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/src/interp/i-output.boot b/src/interp/i-output.boot index 9e145660..e96590c7 100644 --- a/src/interp/i-output.boot +++ b/src/interp/i-output.boot @@ -2097,10 +2097,10 @@ slashWidth(u) == longext(u, i, n) == x := reverse u y := first x - u := remWidth(REVERSEWOC(CONS('" ", rest x))) + u := remWidth(REVERSEWOC(['" ",:rest x])) charybdis(u, i, n) if not $collectOutput then TERPRI $algebraOutputStream - charybdis(CONS('ELSE, LIST y), i, n) + charybdis(['ELSE, :LIST y], i, n) '" " appvertline(char, x, yl, yu, d) == @@ -2289,10 +2289,10 @@ matWidth(x) == CAAR x.1 matLSum(x) == - CONS(sumoverlist x + LENGTH x, x) + [sumoverlist x + LENGTH x,:x] matLSum2(x) == - CONS(sumoverlist x + 2*(LENGTH x), x) + [sumoverlist x + 2*(LENGTH x),:x] matWList(x, y) == null x => y @@ -2300,11 +2300,11 @@ matWList(x, y) == matWList1(x, y) == null x => nil - true => CONS(MAX(WIDTH first x, first y), matWList1(rest x, rest y) ) + true => [MAX(WIDTH first x, first y),:matWList1(rest x, rest y)] matSubList(x) == --computes the max/[subspan(e) for e in "row named x"] null x => nil - true => CONS(matSubList1(CDAR x, 0), matSubList(rest x) ) + true => [matSubList1(CDAR x, 0),:matSubList(rest x)] matSubList1(x, y) == null x => y @@ -2312,7 +2312,7 @@ matSubList1(x, y) == matSuperList(x) == --computes the max/[superspan(e) for e in "row named x"] null x => nil - true => CONS(matSuperList1(CDAR x, 0), matSuperList(rest x) ) + true => [matSuperList1(CDAR x, 0),:matSuperList(rest x)] matSuperList1(x, y) == null x => y @@ -2325,8 +2325,8 @@ minusWidth(u) == -- LASSOC(name, x) or '"," bracketagglist(u, start, linelength, tchr, open, close) == - u := CONS(LIST('CONCAT, open, first u), - [LIST('CONCAT, '" ", y) for y in rest u] ) + u := [LIST('CONCAT, open, first u), + :[LIST('CONCAT, '" ", y) for y in rest u]] repeat s := 0 for x in tails u repeat @@ -2340,7 +2340,7 @@ bracketagglist(u, start, linelength, tchr, open, close) == for x in tails u repeat x.first := LIST('CONCAT, first x, tchr) if null nextu then LAST(u).rest.rest.first := close - x := ASSOCIATER('CONCAT, CONS(ichr, u)) + x := ASSOCIATER('CONCAT, [ichr,:u]) charybdis(ASSOCIATER('CONCAT, u), start, linelength) if $collectOutput then TERPRI $algebraOutputStream ichr := '" " @@ -2370,8 +2370,8 @@ qTWidth(u) == remWidth(x) == atom x => x - true => CONS( (atom first x => first x; true => CAAR x), - MMAPCAR(function remWidth, rest x) ) + true => [(atom first x => first x; true => CAAR x), + :MMAPCAR(function remWidth, rest x)] subSub(u) == height CDDR u |