diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-04-21 05:56:14 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-04-21 05:56:14 +0000 |
| commit | 97463cc77bbec1c33f46ceb44584a180264682c3 (patch) | |
| tree | 61d9cf3e25771fbdd5de776ea989aff622684aa3 /src/interp/br-op2.boot | |
| parent | 1ca37b944b566ef3f0479d4c2fe6895e9fbd3785 (diff) | |
| download | open-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/br-op2.boot')
| -rw-r--r-- | src/interp/br-op2.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/br-op2.boot b/src/interp/br-op2.boot index 3862174b..9aba11b7 100644 --- a/src/interp/br-op2.boot +++ b/src/interp/br-op2.boot @@ -261,7 +261,7 @@ whoUsesOperation(htPage,which,key) == --see dbPresentOps for [op,:alist] in opAlist repeat for [sig,:.] in alist repeat opl := [[op,:SUBLISLIS($FormalMapVariableList,rest conform,sig)],:opl] - opl := nreverse opl + opl := reverse! opl u := whoUses(opl,conform) prefix := pluralSay(#u,'"constructor uses",'"constructors use") suffix := @@ -378,7 +378,7 @@ koOps(conform,domname,:options) == main where -- for x in relatives repeat -- or/[y for y in CDAR x | isSharpVar y] => 'skip -- acc := [x,:acc] --- relatives := nreverse acc +-- relatives := reverse! acc -- for (pair := [pakform,:.]) in relatives repeat -- $packageItem := sublisFormal(rest conform,pair) -- ours := merge(fn(pakform,nil),ours) @@ -525,7 +525,7 @@ koaPageFilterByCategory1(htPage,i) == newOpAlist := insertAlist(op,newEntry,newOpAlist) falist := nil for [op,:alist] in newOpAlist repeat - falist := [[op,:nreverse alist],:falist] + falist := [[op,:reverse! alist],:falist] htpSetProperty(htPage,'fromcat,['" from category {\sf ",form2HtString ancestor,'"}"]) dbShowOperationsFromConform(htPage,which,falist) |