aboutsummaryrefslogtreecommitdiff
path: root/src/interp/nruncomp.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-08-25 12:35:16 +0000
committerdos-reis <gdr@axiomatics.org>2011-08-25 12:35:16 +0000
commitc25dfacda02a40b2055328ba5898086c043e5427 (patch)
treee2b077fc07d82ffc62158d931d3ac2aa0daeae93 /src/interp/nruncomp.boot
parent75a4b333cb95b26efc29b07d6a078b12f2d0b921 (diff)
downloadopen-axiom-c25dfacda02a40b2055328ba5898086c043e5427.tar.gz
* interp/define.boot ($mutableDomain): Remove. Adjust users.
($mutableDomains): Likewise. * interp/database.boot (dbMutable?): Remove. * interp/clam.boot (addToclam): Remove as unused. * algebra/modmon.spad.pamphlet: Do not make MoMonic mutable. * algebra/defaults.spad.pamphlet: Do not make RepeatedSquaring and RepeatedDoubling, FiniteLinearAggregateSort mutable.
Diffstat (limited to 'src/interp/nruncomp.boot')
-rw-r--r--src/interp/nruncomp.boot4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot
index 8f0fff7d..6171d4eb 100644
--- a/src/interp/nruncomp.boot
+++ b/src/interp/nruncomp.boot
@@ -660,9 +660,9 @@ NRToptimizeHas u ==
u
NRTaddToSlam([name,:argnames],shell) ==
- $mutableDomain => return nil
+ dbInstanceCache constructorDB name = nil => return nil
null argnames => addToConstructorCache(name,nil,shell)
- args:= ['%list,:ASSOCRIGHT $devaluateList]
+ args := ['%list,:ASSOCRIGHT $devaluateList]
addToConstructorCache(name,args,shell)
changeDirectoryInSlot1() == --called by buildFunctor