From a2a9f3d7379dc1dfb26c22c890cac0cdf67f759c Mon Sep 17 00:00:00 2001 From: Gabriel Dos Reis Date: Wed, 13 Jan 2016 02:14:24 -0800 Subject: 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. --- src/interp/compiler.boot | 2 +- src/interp/database.boot | 5 ++++- 2 files changed, 5 insertions(+), 2 deletions(-) (limited to 'src/interp') diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index 433d44e7..8b25f4fc 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -1,6 +1,6 @@ -- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd. -- All rights reserved. --- Copyright (C) 2007-2015, Gabriel Dos Reis. +-- Copyright (C) 2007-2016, Gabriel Dos Reis. -- All rights reserved. -- -- Redistribution and use in source and binary forms, with or without 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 == -- cgit v1.2.3