aboutsummaryrefslogtreecommitdiff
path: root/src/interp/g-cndata.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/g-cndata.boot')
-rw-r--r--src/interp/g-cndata.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/g-cndata.boot b/src/interp/g-cndata.boot
index f1f98eb5..deb307fa 100644
--- a/src/interp/g-cndata.boot
+++ b/src/interp/g-cndata.boot
@@ -46,7 +46,7 @@ $lowerCaseConTb := nil
mkLowerCaseConTable() ==
--Called at system build time by function BUILD-INTERPSYS (see util.lisp)
--Table is referenced by functions conPageFastPath and grepForAbbrev
- $lowerCaseConTb := MAKE_-HASH_-TABLE()
+ $lowerCaseConTb := makeTable function scalarEq?
for x in allConstructors() repeat augmentLowerCaseConTable x
$lowerCaseConTb