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/interp/nruncomp.boot | 2 +- src/interp/sys-utility.boot | 4 ---- 2 files changed, 1 insertion(+), 5 deletions(-) (limited to 'src/interp') diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot index 99fa085a..761dd2a7 100644 --- a/src/interp/nruncomp.boot +++ b/src/interp/nruncomp.boot @@ -665,7 +665,7 @@ NRTputInLocalReferences(db,bod) == bod isnt [.,:.] => nil bod is ['SPADCALL,:.] => NRTputInTail(db,bod.args) - fn := lastItem bod.args + fn := last bod.args -- The following test allows function-returning expressions fn is [elt,dom,ind] and dom ~='$ and elt in '(ELT CONST) => k := assocIndex(db,dom) => lastNode(bod).first := ['%tref,'_$,k] diff --git a/src/interp/sys-utility.boot b/src/interp/sys-utility.boot index ce2b7838..c22a2d6f 100644 --- a/src/interp/sys-utility.boot +++ b/src/interp/sys-utility.boot @@ -378,10 +378,6 @@ displayTextFile f == finally stream ~= nil => closeStream stream ---% -macro last x == - lastNode(x).first - --% macro loopBody x == take(-2,x).first -- cgit v1.2.3