diff options
Diffstat (limited to 'src/interp/database.boot')
-rw-r--r-- | src/interp/database.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/database.boot b/src/interp/database.boot index 1096c3eb..1eb2caaf 100644 --- a/src/interp/database.boot +++ b/src/interp/database.boot @@ -158,7 +158,7 @@ getConstructorArgsFromDB ctor == getDualSignature: %Symbol -> %Form getDualSignature ctor == db := constructorDB ctor - if not dbBeingDefined? db then + if not dbBeingDefined? db and dbDualSignature db isnt [.,:.] then loadDBIfNecessary db dbDualSignature db @@ -179,7 +179,7 @@ getSuperDomainFromDB: %Symbol -> %Form getSuperDomainFromDB ctor == builtinConstructor? ctor => nil db := constructorDB ctor - if not dbBeingDefined? db then + if not dbBeingDefined? db and dbSuperDomain db isnt [.,:.] then loadDBIfNecessary db dbSuperDomain db |