aboutsummaryrefslogtreecommitdiff
path: root/src/interp/i-output.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-04-21 05:56:14 +0000
committerdos-reis <gdr@axiomatics.org>2011-04-21 05:56:14 +0000
commit97463cc77bbec1c33f46ceb44584a180264682c3 (patch)
tree61d9cf3e25771fbdd5de776ea989aff622684aa3 /src/interp/i-output.boot
parent1ca37b944b566ef3f0479d4c2fe6895e9fbd3785 (diff)
downloadopen-axiom-97463cc77bbec1c33f46ceb44584a180264682c3.tar.gz
* boot/tokens.boot: Don't rename nreverse.
* boot/utility.boot (reverse!): Define. * boot/parser.boot: Use reverse! instead of NREVERSE. * boot/ast.boot: Generate reverse! forms instead of NREVERSE.
Diffstat (limited to 'src/interp/i-output.boot')
-rw-r--r--src/interp/i-output.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-output.boot b/src/interp/i-output.boot
index d455fad0..c2f53813 100644
--- a/src/interp/i-output.boot
+++ b/src/interp/i-output.boot
@@ -1185,7 +1185,7 @@ maprinChk x ==
maprinRows matrixList ==
newlineIfDisplaying()
while matrixList repeat
- y:=nreverse matrixList
+ y := reverse! matrixList
--Makes the matrices come out in order, since CONSed on backwards
matrixList:=nil
firstName := first first y