From d80dc0d3c5aca58f51d18132005c39a4358e32ae Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sat, 27 Feb 2010 08:29:45 +0000 Subject: * interp/modemap.boot (augModemapsFromCategoryRep): Remove assignment to $base. (augModemapsFromCategory): Likewise. --- src/ChangeLog | 6 ++++++ src/interp/modemap.boot | 2 -- 2 files changed, 6 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/ChangeLog b/src/ChangeLog index 050f5f10..f0a29e16 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,9 @@ +2010-02-27 Gabriel Dos Reis + + * interp/modemap.boot (augModemapsFromCategoryRep): Remove + assignment to $base. + (augModemapsFromCategory): Likewise. + 2010-02-23 Gabriel Dos Reis * interp/nruncomp.boot (genDeltaEntry): Don't store extraneous diff --git a/src/interp/modemap.boot b/src/interp/modemap.boot index e074381f..25172e4f 100644 --- a/src/interp/modemap.boot +++ b/src/interp/modemap.boot @@ -264,7 +264,6 @@ augModemapsFromCategoryRep(domainName,repDefn,functorBody,categoryForm,e) == catform:= (isCategory categoryForm => categoryForm.(0); categoryForm) compilerMessage('"Adding %1p modemaps",[domainName]) e:= putDomainsInScope(domainName,e) - $base:= 4 for [lhs:=[op,sig,:.],cond,fnsel] in fnAlist repeat u:=assoc(substitute("Rep",domainName,lhs),repFnAlist) u and not AMFCR_,redefinedList(op,functorBody) => @@ -288,7 +287,6 @@ augModemapsFromCategory(domainName,domainView,functorForm,categoryForm,e) == --if not $InteractiveMode then compilerMessage('"Adding %1p modemaps",[domainName]) e:= putDomainsInScope(domainName,e) - $base:= 4 condlist:=[] for [[op,sig,:.],cond,fnsel] in fnAlist repeat -- e:= addModemap(op,domainName,sig,cond,fnsel,e) -- cgit v1.2.3