From ef3e16960ee4d9d1c02c1f63a7f8125a489d1373 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 13 Jan 2008 23:42:24 +0000 Subject: Fix SF/1852076 * algebra/domain.spad (reify$Domain): Specify target type of conversion. * interp/nrunfast.boot (newLookupInDomain): Tidy. (newLookupInCategories): Likewise. * testsuite/interpreter/1852076.input: New. --- src/interp/nrunfast.boot | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/interp') diff --git a/src/interp/nrunfast.boot b/src/interp/nrunfast.boot index 6a6c3ed4..663ed874 100644 --- a/src/interp/nrunfast.boot +++ b/src/interp/nrunfast.boot @@ -225,7 +225,7 @@ newLookupInDomain(op,sig,addFormDomain,dollar,index) == INTEGERP KAR addFormCell => or/[newLookupInDomain(op,sig,addFormDomain,dollar,i) for i in addFormCell] if null VECP addFormCell then lazyDomainSet(addFormCell,addFormDomain,index) - lookupInDomainAndDefaults(op,sig,addFormDomain.index,dollar,false) + lookupInDomainVector(op,sig,addFormDomain.index,dollar) nil --======================================================= @@ -371,7 +371,7 @@ newLookupInCategories1(op,sig,dom,dollar) == null package => nil if $monitorNewWorld then sayLooking1('"Looking at instantiated package ",package) - res := lookupInDomainAndDefaults(op,sig,package,dollar,false) => + res := lookupInDomainVector(op,sig,package,dollar) => if $monitorNewWorld = true then sayBrightly '"candidate default package succeeds" return res -- cgit v1.2.3