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/translator.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/translator.boot')
| -rw-r--r-- | src/boot/translator.boot | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/boot/translator.boot b/src/boot/translator.boot index d258a78d..151b4f73 100644 --- a/src/boot/translator.boot +++ b/src/boot/translator.boot @@ -525,10 +525,10 @@ $lispWordTable := nil shoeDfu(a,fn)== a=nil => shoeNotFound fn - $lispWordTable: local := MAKE_-HASHTABLE ("EQ") + $lispWordTable: local := makeTable function symbolEq? DO_-SYMBOLS(i(FIND_-PACKAGE "LISP"),tableValue($lispWordTable,i) := true) - $bootDefined: local :=MAKE_-HASHTABLE "EQ" - $bootUsed:local := MAKE_-HASHTABLE "EQ" + $bootDefined: local := makeTable function symbolEq? + $bootUsed:local := makeTable function symbolEq? $bootDefinedTwice: local := nil $GenVarCounter: local := 0 $bfClamming: local := false @@ -642,10 +642,10 @@ XREF fn== shoeXref(a,fn)== a = nil => shoeNotFound fn - $lispWordTable: local := MAKE_-HASHTABLE ("EQ") + $lispWordTable: local := makeTable function symbolEq? DO_-SYMBOLS(i(FIND_-PACKAGE "LISP"),tableValue($lispWordTable,i) := true) - $bootDefined: local := MAKE_-HASHTABLE "EQ" - $bootUsed: local := MAKE_-HASHTABLE "EQ" + $bootDefined: local := makeTable function symbolEq? + $bootUsed: local := makeTable function symbolEq? $GenVarCounter: local := 0 $bfClamming: local := false shoeDefUse shoeTransformStream a |