diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-09 14:18:38 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-09 14:18:38 +0000 |
| commit | aa827b23f713e6568dde0c7c9fecf67d2ee2e7fd (patch) | |
| tree | 52572bbbb0561bf5454b07d3d9098392a3d6a498 /src/boot/pile.boot | |
| parent | 7b82287b36a54b0ac78e82f9d8ad468cb889a4e4 (diff) | |
| download | open-axiom-aa827b23f713e6568dde0c7c9fecf67d2ee2e7fd.tar.gz | |
* boot/ast.boot: Miscellaneous cleanup.
* boot/includer.boot: Likewise.
* boot/parser.boot: Likewise.
* boot/pile.boot: Likewise.
* boot/scanner.boot: Likewise.
* boot/translator.boot: Likewise.
Diffstat (limited to 'src/boot/pile.boot')
| -rw-r--r-- | src/boot/pile.boot | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/boot/pile.boot b/src/boot/pile.boot index 19c48923..fa19c102 100644 --- a/src/boot/pile.boot +++ b/src/boot/pile.boot @@ -49,11 +49,11 @@ shoePileColumn t== -- s is a token-dq-stream shoePileInsert (s)== - bStreamNull s => cons([],s) + bStreamNull s => [[],:s] toktype := shoeTokType CAAAR s - toktype = "LISP" or toktype = "LINE" => cons([first s],rest s) + toktype = "LISP" or toktype = "LINE" => [[first s],:rest s] a:=shoePileTree(-1,s) - cons([a.2],a.3) + [[a.2],:a.3] shoePileTree(n,s)== bStreamNull s => [false,n,[],s] @@ -73,14 +73,14 @@ shoePileForest(n,s)== [b,hh,h,t] := shoePileTree(n,s) b => [h1,t1]:=shoePileForest1(hh,t) - [cons(h,h1),t1] + [[h,:h1],t1] [[],s] shoePileForest1(n,s)== [b,n1,h,t] := eqshoePileTree(n,s) b => [h1,t1]:=shoePileForest1(n,t) - [cons(h,h1),t1] + [[h,:h1],t1] [[],s] shoePileForests(h,n,s)== @@ -111,7 +111,7 @@ shoePileCoagulate(a,b)== d is ["KEY",:.] and (e has SHOEINF or e = "COMMA" or e = "SEMICOLON") => shoePileCoagulate(dqAppend(a,c),rest b) - cons(a,shoePileCoagulate(c,rest b)) + [a,:shoePileCoagulate(c,rest b)] shoeSeparatePiles x== x = nil => [] |