aboutsummaryrefslogtreecommitdiff
path: root/src/interp/nruncomp.boot
diff options
context:
space:
mode:
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