aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2010-02-27 08:29:45 +0000
committerdos-reis <gdr@axiomatics.org>2010-02-27 08:29:45 +0000
commitd80dc0d3c5aca58f51d18132005c39a4358e32ae (patch)
tree2dc00a2af8d5b2c72bb48e157762323d22c08b77 /src
parente88adcff035ac357b03f21325c0edacbc3d55b66 (diff)
downloadopen-axiom-d80dc0d3c5aca58f51d18132005c39a4358e32ae.tar.gz
* interp/modemap.boot (augModemapsFromCategoryRep): Remove
assignment to $base. (augModemapsFromCategory): Likewise.
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog6
-rw-r--r--src/interp/modemap.boot2
2 files changed, 6 insertions, 2 deletions
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 <gdr@cs.tamu.edu>
+
+ * interp/modemap.boot (augModemapsFromCategoryRep): Remove
+ assignment to $base.
+ (augModemapsFromCategory): Likewise.
+
2010-02-23 Gabriel Dos Reis <gdr@cs.tamu.edu>
* 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)