* interp/: More cleanup.

1 files changed, 5 insertions, 5 deletions

diff --git a/src/interp/pile.boot b/src/interp/pile.boot
index 4f749ba9..83e6b584 100644
--- a/src/interp/pile.boot
+++ b/src/interp/pile.boot
@@ -46,7 +46,7 @@ namespace BOOT
 -- the root of the first tree is concatenated with its forest.
 -- column t is the number of spaces before the first non-space in line t
  
-pileColumn t==CDR tokPosn CAAR t
+pileColumn t== rest tokPosn CAAR t
 pileComment t== EQ(tokType CAAR t,"negcomment")
 pilePlusComment t== EQ(tokType CAAR t,"comment")
  
@@ -84,9 +84,9 @@ pileTree(n,s)==
     then [false,n,[],s]
     else
         [h,t]:=[car s,cdr s]
-        hh:=pileColumn CAR h
+        hh:=pileColumn first h
         if hh > n
-        then pileForests(CAR h,hh,t)
+        then pileForests(first h,hh,t)
         else [false,n,[],s]
  
 eqpileTree(n,s)==
@@ -94,9 +94,9 @@ eqpileTree(n,s)==
     then [false,n,[],s]
     else
         [h,t]:=[car s,cdr s]
-        hh:=pileColumn CAR h
+        hh:=pileColumn first h
         if hh = n
-        then pileForests(CAR h,hh,t)
+        then pileForests(first h,hh,t)
         else [false,n,[],s]
  
 pileForest(n,s)==