diff options
author | dos-reis <gdr@axiomatics.org> | 2011-05-12 15:39:14 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-05-12 15:39:14 +0000 |
commit | 665cb7df0fd6106b61a88667ae132e613d395cc4 (patch) | |
tree | 7add9286226ea268e888be8a1c55da11fc182210 /src/boot/tokens.boot | |
parent | a8b9a2f5f65820ce836353e0d25070fa8eaeece9 (diff) | |
download | open-axiom-665cb7df0fd6106b61a88667ae132e613d395cc4.tar.gz |
* boot/initial-env.lisp (MAKE-HASHTABLE): Remove.
(BEVC-MAKE-FULL): Likewise.
(MAKE-BVEC): Likewise.
* boot/tokens.boot (shoeKeyTableCons): Adjust.
(shoePunCons): Likewise.
(shoeDfu): Likewise.
(shoeXref): Likewise.
Diffstat (limited to 'src/boot/tokens.boot')
-rw-r--r-- | src/boot/tokens.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/boot/tokens.boot b/src/boot/tokens.boot index f0dbe004..905f4426 100644 --- a/src/boot/tokens.boot +++ b/src/boot/tokens.boot @@ -128,7 +128,7 @@ shoeKeyWords == [ _ shoeKeyTableCons()== - KeyTable:=MAKE_-HASHTABLE("CVEC") + KeyTable := makeTable function valueEq? for st in shoeKeyWords repeat tableValue(KeyTable,first st) := second st KeyTable @@ -170,7 +170,7 @@ shoeDict:=shoeDictCons() shoePunCons()== listing := HKEYS shoeKeyTable - a := MAKE_-BVEC 256 + a := makeBitVector 256 for i in 0..255 repeat bitmask(a,i) := 0 for k in listing repeat |