diff options
Diffstat (limited to 'src/interp/database.boot')
-rw-r--r-- | src/interp/database.boot | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/interp/database.boot b/src/interp/database.boot index 7f01fdb3..01034700 100644 --- a/src/interp/database.boot +++ b/src/interp/database.boot @@ -149,8 +149,10 @@ getConstructorArgsFromDB ctor == ++ parameter type at the corresponding position is a category. getDualSignature: %Symbol -> %Form getDualSignature ctor == - db := constructorDB ctor or return nil - dbDualSignature db or GETDATABASE(ctor,'COSIG) + db := constructorDB ctor + if not dbBeingDefined? db then + loadDBIfNecessary db + dbDualSignature db getConstructorPredicates: %Symbol -> %List %Thing getConstructorPredicates ctor == |