diff options
author | dos-reis <gdr@axiomatics.org> | 2009-09-26 13:49:18 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2009-09-26 13:49:18 +0000 |
commit | 91bd7571dc0baf8d17047d553e4616dd587c0ffb (patch) | |
tree | 2e2a2eb23ff2cb76b6eb3ae763a480ac1f0078ad /src/interp/pile.boot | |
parent | 868f1d56a5bcd7d712855e98085e0e15d32a3264 (diff) | |
download | open-axiom-91bd7571dc0baf8d17047d553e4616dd587c0ffb.tar.gz |
* interp/: More cleanup.
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)== |