diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-07-11 12:01:35 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-07-11 12:01:35 +0000 |
| commit | 7dee86947c3b587f0b365eeb3a8c0cb3c5510c3c (patch) | |
| tree | 20dc0c94ee739c1acf1462ebba3fe20c851c52bf /src/interp/i-spec2.boot | |
| parent | 452dc63a67da26ebe9e1578378512d7884775f3e (diff) | |
| download | open-axiom-7dee86947c3b587f0b365eeb3a8c0cb3c5510c3c.tar.gz | |
* interp/database.boot (markUnique): Remove.
($FunctionDescriptorTail): Likewise.
(getOperationAlistFromLisplib): Likewise.
(getOplistForConstructorForm): Adjust.
* interp/br-op1.boot (getDomainOpTable): Likewise.
* interp/br-op2.boot (koOps): Likewise.
* interp/define.boot (genDomainViewList): Likewise.
* interp/i-analy.boot (namedConstant): Likewise.
* interp/i-coerce.boot (getConstantFromDomain): Likewise.
* interp/i-funsel.boot (isOpInDomain): Likewise.
(findCommonSigInDomain): Likewise.
(findUniqueOpInDomain): Likewise.
(hasSig): Likewise.
* interp/i-spec2.boot (constantInDomain?): Likewise.
* interp/trace.boot (spadTrace): Likewise.
* interp/lisplib.boot (transformOperationAlist): Simplify.
Diffstat (limited to 'src/interp/i-spec2.boot')
| -rw-r--r-- | src/interp/i-spec2.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-spec2.boot b/src/interp/i-spec2.boot index c67ccb7e..e8522eb9 100644 --- a/src/interp/i-spec2.boot +++ b/src/interp/i-spec2.boot @@ -84,7 +84,7 @@ upDEF t == ++ <%Mode>: the type of the constant. ++ T: too many constants designated by `form'. constantInDomain?(form,domainForm) == - opAlist := getOperationAlistFromLisplib first domainForm + opAlist := getConstructorOperationsFromDB domainForm.op key := opOf form entryList := [entry for (entry := [.,.,.,k]) in LASSOC(key,opAlist) | k in '(CONST ASCONST)] |