diff options
author | Gabriel Dos Reis <gdr@axiomatics.org> | 2016-01-13 02:14:24 -0800 |
---|---|---|
committer | Gabriel Dos Reis <gdr@axiomatics.org> | 2016-01-13 02:14:24 -0800 |
commit | a2a9f3d7379dc1dfb26c22c890cac0cdf67f759c (patch) | |
tree | 49823c1f8e1cadb7bff3abc3d65245e3edbf116c /src/interp/database.boot | |
parent | e27fcd9e3bcb44ae147bbea76abaeba4e3876b89 (diff) | |
download | open-axiom-a2a9f3d7379dc1dfb26c22c890cac0cdf67f759c.tar.gz |
getSuperDomainFromDB: get data from generated code
Don't call GETDATABASE to read the information. Rather, load the
generated code for the contructor. Discovered mode algebra dependencies.
Diffstat (limited to 'src/interp/database.boot')
-rw-r--r-- | src/interp/database.boot | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/interp/database.boot b/src/interp/database.boot index aa460332..863def62 100644 --- a/src/interp/database.boot +++ b/src/interp/database.boot @@ -166,7 +166,10 @@ getConstructorParentsFromDB ctor == getSuperDomainFromDB: %Symbol -> %Form getSuperDomainFromDB ctor == - GETDATABASE(ctor,"SUPERDOMAIN") + db := constructorDB ctor + if not dbBeingDefined? db then + loadDBIfNecessary db + dbSuperDomain db getConstructorAttributes: %Symbol -> %Form getConstructorAttributes ctor == |