diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-08 23:39:25 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-08 23:39:25 +0000 |
| commit | 3f5e2de70e2d7444bfb5fa1d6e33bb9ac2dee102 (patch) | |
| tree | e999e841ca274412f980745a06ba173c221ad456 /src/interp/i-output.boot | |
| parent | 2c869f999871438dfb1c3efb9eb9f6e398c35d36 (diff) | |
| download | open-axiom-3f5e2de70e2d7444bfb5fa1d6e33bb9ac2dee102.tar.gz | |
* interp/wi2.boot: Remove more RPLACA and RPLACD uses.
* interp/topics.boot: Likewise.
* interp/slam.boot: Likewise.
* interp/nruncomp.boot: Likewise.
* interp/interop.boot: Likewise.
* interp/i-toplev.boot: Likewise.
* interp/i-spec1.boot: Likewise.
* interp/i-resolv.boot: Likewise.
* interp/i-output.boot: Likewise.
* interp/htsetvar.boot: Likewise.
* interp/g-util.boot: Likewise.
* interp/g-cndata.boot: Likewise.
* interp/functor.boot: Likewise.
* interp/dq.boot: Likewise.
* interp/define.boot: Likewise.
* interp/database.boot: Likewise.
* interp/cparse.boot: Likewise.
* interp/clam.boot: Likewise.
* interp/c-util.boot: Likewise.
* interp/br-op1.boot: Likewise.
* interp/br-data.boot: Likewise.
Diffstat (limited to 'src/interp/i-output.boot')
| -rw-r--r-- | src/interp/i-output.boot | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/interp/i-output.boot b/src/interp/i-output.boot index bdb5c654..3df78d82 100644 --- a/src/interp/i-output.boot +++ b/src/interp/i-output.boot @@ -1500,7 +1500,7 @@ splitConcat(list,maxWidth,firstTimeIfTrue) == l:= x totalWidth:= width x:= rest l - RPLAC(rest l,nil) + l.rest := nil [list,:splitConcat(x,maxWidth,nil)] spadPrint(x,m) == @@ -1817,10 +1817,10 @@ charySplit(u,v,start,linelength) == ddm := rest dm dm.rest := nil WIDTH v > linelength - 2 => return nil - RPLAC(first v, first v.0) + v.first := first v.0 dm.rest := ddm m := rest m - RPLAC(first v,first v.0) + v.first := first v.0 m.rest := nil charybdis(v,start + 2,linelength - 2) split2(u,dm,ddm,start,linelength) @@ -2285,7 +2285,7 @@ matWidth(x) == --returns ["max width of entries in column i" for i in 1..numberOfRows] subspanList := matLSum matSubList y superspanList := matLSum matSuperList y - RPLAC(x.1,[widthList, subspanList, superspanList]) + x.rest.first := [widthList, subspanList, superspanList] CAAR x.1 matLSum(x) == @@ -2564,7 +2564,7 @@ mathPrintTran u == atom u => u true => for x in tails u repeat - RPLAC(first x, mathPrintTran first x) + x.first := mathPrintTran first x u mathPrint1(x,fg) == |