From 3c643ccfe92e3fc3282a4701f70ce76b1199880e Mon Sep 17 00:00:00 2001 From: dos-reis Date: Wed, 17 Oct 2007 04:31:11 +0000 Subject: * 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. --- src/interp/g-util.boot | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/interp/g-util.boot') 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 -- cgit v1.2.3