From a886a6f8ac9b0bfd65611631875a119693f6c84a Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 22 Feb 2011 20:06:03 +0000
Subject: 	* boot/tokens.boot: mmSource is a new selector for modemap
 datatype. 	* interp/wi1.boot: Likewise. 	* interp/br-data.boot: Various
 cleanups. 	* interp/c-util.boot: Likewise. 	*
 interp/compiler.boot: Likewise. 	* interp/functor.boot: Likewise. 
 * interp/g-util.boot: Likewise. 	* interp/guess.boot: Likewise. 	*
 interp/i-util.boot: Likewise. 	* interp/mark.boot: Likewise. 	*
 interp/msgdb.boot: Likewise. 	* interp/topics.boot: Likewise.

---
 src/interp/mark.boot | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/interp/mark.boot')

diff --git a/src/interp/mark.boot b/src/interp/mark.boot
index 868cf7f5..509fd8ba 100644
--- a/src/interp/mark.boot
+++ b/src/interp/mark.boot
@@ -594,7 +594,7 @@ markRecord(source,target,u) ==
 --  Capsule Function: Find dewey decimal path across a list
 --======================================================================
 markPath u ==        --u has nested structure: u0 < u1 < u2 ...
-  whole := LAST u
+  whole := last u
   part  := first u
   $path := u
   u is [.] => 0      --means THE WHOLE THING
@@ -930,11 +930,11 @@ markPrintAttributes addForm ==
   capsule :=
     addForm is ['add,a,:.] => 
       a is ['CATEGORY,:.] => a
-      a is ['Join,:.] => first LASTNODE a
-      first LASTNODE addForm
+      a is ['Join,:.] => first lastNode a
+      first lastNode addForm
     addForm
   if capsule is ['CAPSULE,:r] then
-    capsule := first LASTNODE r
+    capsule := first lastNode r
   capsule isnt ['CATEGORY,.,:lst] => nil
   for x in lst | x is ['ATTRIBUTE,att] repeat
     markSay(form2String att)
-- 
cgit v1.2.3