diff options
| author | Gabriel Dos Reis <gdr@axiomatics.org> | 2015-12-26 20:09:37 -0800 |
|---|---|---|
| committer | Gabriel Dos Reis <gdr@axiomatics.org> | 2015-12-26 20:10:26 -0800 |
| commit | ba0eeb3c591ebb8e51a5ea2679749e4ceca95e08 (patch) | |
| tree | 70d11889dc5f474598e78b5210af82cb5dec77cb /src/boot | |
| parent | d5011e370ab68f22c646683740e630193e8cd8d1 (diff) | |
| download | open-axiom-ba0eeb3c591ebb8e51a5ea2679749e4ceca95e08.tar.gz | |
Rename 'lastItem' to 'last'. Remove the macro definition.
Diffstat (limited to 'src/boot')
| -rw-r--r-- | src/boot/ast.boot | 2 | ||||
| -rw-r--r-- | src/boot/utility.boot | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/src/boot/ast.boot b/src/boot/ast.boot index 986338f3..253002a9 100644 --- a/src/boot/ast.boot +++ b/src/boot/ast.boot @@ -1475,7 +1475,7 @@ translateForm x == x isnt [.,:.] => x x.op is 'QUOTE => x x.op is 'apply and x.args is [fun,:args] => - lastItem args = 'NIL => + last args = 'NIL => ['FUNCALL,:listMap!(butLast! x.args,function translateForm)] args is [['LIST,:ys]] => ['FUNCALL,translateForm fun,:listMap!(ys, function translateForm)] diff --git a/src/boot/utility.boot b/src/boot/utility.boot index 4d4646a5..784d4514 100644 --- a/src/boot/utility.boot +++ b/src/boot/utility.boot @@ -46,7 +46,7 @@ namespace BOOTTRAN module utility (objectMember?, symbolMember?, stringMember?, charMember?, scalarMember?, listMember?, reverse, reverse!, lastNode, append, append!, copyList, substitute, substitute!, - listMap, listMap!, butLast, butLast!, lastItem, + listMap, listMap!, butLast, butLast!, last, setDifference, setUnion, setIntersection, symbolAssoc, applySubst, applySubst!, applySubstNQ, objectAssoc, invertSubst, substTarget, substSource, @@ -59,7 +59,7 @@ module utility (objectMember?, symbolMember?, stringMember?, append!: (%List %Thing,%List %Thing) -> %List %Thing copyList: %List %Thing -> %List %Thing lastNode: %List %Thing -> %Maybe %Node %Thing - lastItem: %List %Thing -> %Thing + last: %List %Thing -> %Thing butLast: %List %Thing -> %List %Thing butLast!: %List %Thing -> %List %Thing removeSymbol: (%List %Thing, %Symbol) -> %List %Thing @@ -200,7 +200,7 @@ lastNode l == l --% return the content of the last item in the list `l'. -lastItem l == +last l == first lastNode l --% return a copy of the input list except the last cons-cell. |