diff options
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/nruncomp.boot | 2 | ||||
| -rw-r--r-- | src/interp/sys-utility.boot | 4 |
2 files changed, 1 insertions, 5 deletions
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 @@ -379,10 +379,6 @@ displayTextFile f == stream ~= nil => closeStream stream --% -macro last x == - lastNode(x).first - ---% macro loopBody x == take(-2,x).first |