aboutsummaryrefslogtreecommitdiff
path: root/src/interp/pile.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/pile.boot')
-rw-r--r--src/interp/pile.boot10
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)==