diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-01-13 23:42:24 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-01-13 23:42:24 +0000 |
| commit | ef3e16960ee4d9d1c02c1f63a7f8125a489d1373 (patch) | |
| tree | 2bb872902f2b4735c1639e87bcdad50a619d35a1 /src/interp | |
| parent | ef479d62b3218ebc50dd470efd04cb5607a276d1 (diff) | |
| download | open-axiom-ef3e16960ee4d9d1c02c1f63a7f8125a489d1373.tar.gz | |
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.
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/nrunfast.boot | 4 |
1 files changed, 2 insertions, 2 deletions
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 |