aboutsummaryrefslogtreecommitdiff
path: root/src/boot/tokens.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/boot/tokens.boot')
-rw-r--r--src/boot/tokens.boot4
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