diff options
Diffstat (limited to 'src/interp/database.boot')
| -rw-r--r-- | src/interp/database.boot | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/interp/database.boot b/src/interp/database.boot index 423cf547..e667ab74 100644 --- a/src/interp/database.boot +++ b/src/interp/database.boot @@ -165,9 +165,12 @@ getConstructorPredicates ctor == dbBeingDefined? db => dbPredicates db dbPredicates loadDBIfNecessary db -getConstructorParentsFromDB: %Symbol -> %List %Symbol +getConstructorParentsFromDB: %Symbol -> %Alist(%Instantiation,%Code) getConstructorParentsFromDB ctor == - GETDATABASE(ctor,"PARENTS") + db := constructorDB ctor + if not dbBeingDefined? db and dbPrincipals db isnt [.,:.] then + loadDBIfNecessary db + dbPrincipals db getSuperDomainFromDB: %Symbol -> %Form getSuperDomainFromDB ctor == |