From 97463cc77bbec1c33f46ceb44584a180264682c3 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Thu, 21 Apr 2011 05:56:14 +0000 Subject: * 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. --- src/interp/interop.boot | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/interp/interop.boot') diff --git a/src/interp/interop.boot b/src/interp/interop.boot index c2bfc566..45019c39 100644 --- a/src/interp/interop.boot +++ b/src/interp/interop.boot @@ -265,7 +265,7 @@ $attributeDispatch := -- Generate Category Level Alist --======================================================================= orderCatAnc x == - nreverse ASSOCLEFT SORTBY(function rest,rest depthAssoc x) + reverse! ASSOCLEFT SORTBY(function rest,rest depthAssoc x) depthAssocList u == u := delete('DomainSubstitutionMacro,u) --hack by RDJ 8/90 @@ -328,7 +328,7 @@ orderedDefaults(conform,domform) == ancestors := ancestorsOf(conform,domform) for x in conList repeat for y in ancestors | x = CAAR y repeat acc := [y,:acc] - nreverse acc + reverse! acc instantiate domenv == -- following is a patch for a bug in runtime.as -- cgit v1.2.3