From ba0eeb3c591ebb8e51a5ea2679749e4ceca95e08 Mon Sep 17 00:00:00 2001 From: Gabriel Dos Reis Date: Sat, 26 Dec 2015 20:09:37 -0800 Subject: Rename 'lastItem' to 'last'. Remove the macro definition. --- src/boot/ast.boot | 2 +- src/boot/utility.boot | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) (limited to 'src/boot') 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. -- cgit v1.2.3