diff options
author | dos-reis <gdr@axiomatics.org> | 2009-09-26 18:43:36 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2009-09-26 18:43:36 +0000 |
commit | 1ea145d58ec94029d4f6e30a6f854f728154ad8c (patch) | |
tree | 676f0e73479516d288c33dcc3156029b71554d75 /src/interp/i-output.boot | |
parent | feb9d8d42ee30dbdad5184b654e3de461c06e7e7 (diff) | |
download | open-axiom-1ea145d58ec94029d4f6e30a6f854f728154ad8c.tar.gz |
More cleanup
Diffstat (limited to 'src/interp/i-output.boot')
-rw-r--r-- | src/interp/i-output.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/i-output.boot b/src/interp/i-output.boot index b2e29cb8..2720a611 100644 --- a/src/interp/i-output.boot +++ b/src/interp/i-output.boot @@ -623,7 +623,7 @@ checkArgs(op,tail) == tail := [:rest term,:rest tail] head := [term,:head] tail := rest tail - REVERSE head + reverse head outputTranSEQ ['SEQ,:l,exitform] == if exitform is ['exit,.,a] then exitform := a @@ -1170,7 +1170,7 @@ maprinChk x == maprinRows matrixList == if not $collectOutput then TERPRI($algebraOutputStream) while matrixList repeat - y:=NREVERSE matrixList + y:=nreverse matrixList --Makes the matrices come out in order, since CONSed on backwards matrixList:=nil firstName := first first y @@ -2093,7 +2093,7 @@ slashWidth(u) == 1 + WIDTH second u + WIDTH second rest u longext(u, i, n) == - x := REVERSE u + x := reverse u y := first x u := remWidth(REVERSEWOC(CONS('" ", rest x))) charybdis(u, i, n) |