diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-09-30 10:59:54 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-09-30 10:59:54 +0000 |
| commit | 1dad9f2ee595ae4255a7afecc249c4d4a02e148a (patch) | |
| tree | 9eb0fa81bd4f3b658ba831aa7345dacb2d4a793e /src/boot/tokens.boot | |
| parent | 441c2259ea4bdda1c2a0a4091a55955536998270 (diff) | |
| download | open-axiom-1dad9f2ee595ae4255a7afecc249c4d4a02e148a.tar.gz | |
* boot/ast.boot (bfTableIteratorBindingForm): New.
(bfExpandTableIters): Use it.
* boot/initial-env.lisp (HKEYS): Remove.
* boot/tokens.boot (shoeDictCons): Iterate directly over shoeKeyTable.
(shoePunCons): Likewise.
* boot/translator.boot (shoeReport): Iterate directly over $bootUsed.
(shoeXReport): Likewise.
Diffstat (limited to 'src/boot/tokens.boot')
| -rw-r--r-- | src/boot/tokens.boot | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/src/boot/tokens.boot b/src/boot/tokens.boot index cf2b05c9..e39cee89 100644 --- a/src/boot/tokens.boot +++ b/src/boot/tokens.boot @@ -149,7 +149,6 @@ shoeInsert(s,d) == s shoeDictCons()== - l := HKEYS shoeKeyTable d := a := newVector 256 b := newVector 1 @@ -157,7 +156,7 @@ shoeDictCons()== for i in 0..255 repeat a.i := b a - for s in l repeat + for [s,:.] in entries shoeKeyTable repeat shoeInsert(s,d) d @@ -165,12 +164,11 @@ shoeDict:=shoeDictCons() shoePunCons()== - listing := HKEYS shoeKeyTable a := makeBitVector 256 for i in 0..255 repeat bitmask(a,i) := 0 - for k in listing repeat - shoeStartsId k.0 => nil + for [k,:.] in entries shoeKeyTable repeat + shoeStartsId stringChar(k,0) => nil bitmask(a,codePoint stringChar(k,0)) := 1 a |