diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-03-30 14:33:53 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-03-30 14:33:53 +0000 |
| commit | af51c280292fc412e56c22ec2b416184beecee3d (patch) | |
| tree | ebea856bd8442cab656010abd9f04aff4f41bf3b /src/interp/nruncomp.boot | |
| parent | 5b6d45a2ce9252daf2392b1fe189f9cdfce19bb1 (diff) | |
| download | open-axiom-af51c280292fc412e56c22ec2b416184beecee3d.tar.gz | |
Fix SF/1849435.
* interp/buildom.boot: Rewrite builtin domains to work with old
runtime scheme.
* interp/nruncomp.boot (NRTencode): Tidy.
* interp/nrungo.boot (basicLookup): lookupInTable is part of the
old runtime scheme too.
(lookupInDomain): Tidy.
(lookupInCategories): Simplify.
Diffstat (limited to 'src/interp/nruncomp.boot')
| -rw-r--r-- | src/interp/nruncomp.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot index 0136f78c..457fa052 100644 --- a/src/interp/nruncomp.boot +++ b/src/interp/nruncomp.boot @@ -113,7 +113,7 @@ NRTreplaceAllLocalReferences(form) == NRTencode(x,y) == encode(x,y,true) where encode(x,compForm,firstTime) == --converts a domain form to a lazy domain form; everything other than --the operation name should be assigned a slot - null firstTime and (k:= NRTassocIndex x) => k + not firstTime and (k:= NRTassocIndex x) => k VECP x => systemErrorHere '"NRTencode" PAIRP x => QCAR x='Record or x is ['Union,['_:,a,b],:.] => |