diff options
Diffstat (limited to 'src/interp/br-con.boot')
| -rw-r--r-- | src/interp/br-con.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/br-con.boot b/src/interp/br-con.boot index 9fce6fae..29ad20c5 100644 --- a/src/interp/br-con.boot +++ b/src/interp/br-con.boot @@ -344,7 +344,7 @@ dbSearchOrder(conform,domname,$domain) == --domain = nil or set to live domain -- which = '"attribute" => pred --all categories (pak := catinfo . i) and pred --only those with default packages pakform() == - pak and not IDENTP pak => devaluate pak --in case it has been instantiated + pak and not ident? pak => devaluate pak --in case it has been instantiated catform := kFormatSlotDomain catvec . i -- which = '"attribute" => dbSubConform(rest conform,catform) res := dbSubConform(rest conform,[pak,"$",:rest catform]) |