diff options
Diffstat (limited to 'src/interp/modemap.boot')
| -rw-r--r-- | src/interp/modemap.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/modemap.boot b/src/interp/modemap.boot index cff85592..4b7b2c13 100644 --- a/src/interp/modemap.boot +++ b/src/interp/modemap.boot @@ -456,8 +456,8 @@ knownInfo pred == stackAndThrow('"can't find category of %1pb",[name]) [vv,.,.] := compMakeCategoryObject(v.mode,$e) or return stackAndThrow('"can't make category of %1pb",[name]) - listMember?(attr,vv.2) => true - x := assoc(attr,vv.2) => knownInfo second x + listMember?(attr,categoryAttributes vv) => true + x := assoc(attr,categoryAttributes vv) => knownInfo second x --format is a list of two elements: information, predicate false pred is ["has",name,cat] => |