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 541aa188..f5a4492a 100644
--- a/src/interp/g-cndata.boot
+++ b/src/interp/g-cndata.boot
@@ -57,7 +57,7 @@ augmentLowerCaseConTable x ==
getCDTEntry(info,isName) ==
not IDENTP info => nil
- (entry := HGET($lowerCaseConTb,info)) =>
+ (entry := tableValue($lowerCaseConTb,info)) =>
[name,abb,:.] := entry
isName and sameObject?(name,info) => entry
not isName and sameObject?(abb,info) => entry