From af51c280292fc412e56c22ec2b416184beecee3d Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 30 Mar 2008 14:33:53 +0000 Subject: 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. --- src/interp/nruncomp.boot | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/interp/nruncomp.boot') 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],:.] => -- cgit v1.2.3