diff options
| author | dos-reis <gdr@axiomatics.org> | 2007-10-17 04:31:11 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2007-10-17 04:31:11 +0000 |
| commit | 3c643ccfe92e3fc3282a4701f70ce76b1199880e (patch) | |
| tree | ddb197fa57e541286b03b682e22ee8f20ea5de56 /src/interp/g-util.boot | |
| parent | ce09059aa3e8028ef11f5e9573bcc6fac593ef5e (diff) | |
| download | open-axiom-3c643ccfe92e3fc3282a4701f70ce76b1199880e.tar.gz | |
* g-util.boot (isDomain): Merge with version in interop.boot.pamphlet.
* i-funsel.boot.pamphlet (getFunctionFromDomain): Likewise.
* interop.boot.pamphlet (devaluate): Remove.
(isDomain): Likewise.
(NRTcompiledLookup): Likewise.
(compiledLookup): Likewise.
(basicLookup): Likewise.
(lookupInDomainVector): Likewise.
(lookupComplete): Likewise.
(lookupIncomplete): Likewise.
(lookupInCompactTable): Likewise.
(lazyMatchArg2): Likewise.
(getOpCode): Likewise.
(newExpandLocalType): Likewise.
(replaceGoGetSlot): Likewise.
(lazyMatchAssocV): Likewise.
(lazyDomainSet): Likewise.
(evalSlotDomain): Likewise.
(domainEqual): Likewise.
(coerceConvertMmSelection): Likewise.
(getFunctionFromDomain): Likewise.
Diffstat (limited to 'src/interp/g-util.boot')
| -rw-r--r-- | src/interp/g-util.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot index ea980250..4ee943ba 100644 --- a/src/interp/g-util.boot +++ b/src/interp/g-util.boot @@ -536,9 +536,9 @@ intern x == INTERN x x ---------------------> NEW DEFINITION (override in interop.boot.pamphlet) isDomain a == - REFVECP a and #a>5 and GETDATABASE(a.0,'CONSTRUCTORKIND) = 'domain + PAIRP a and VECP(CAR a) and + member(CAR(a).0, $domainTypeTokens) -- variables used by browser |