diff options
Diffstat (limited to 'src/interp/pile.boot')
| -rw-r--r-- | src/interp/pile.boot | 10 |
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)== |