aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog7
-rw-r--r--src/interp/i-analy.boot6
-rw-r--r--src/interp/nrunfast.boot10
-rw-r--r--src/interp/nrungo.boot2
4 files changed, 16 insertions, 9 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index e2536ef0..d4c3af6b 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,12 @@
2008-04-07 Gabriel Dos Reis <gdr@cs.tamu.edu>
+ * interp/i-analy.boot (pushDownOp?): Use setShellEntry.
+ * interp/nrunfast.boot (replaceGoGetSlot): Likewise.
+ (lazyDomainSet): Likewise.
+ * interp/nrungo.boot (goGet): Likewise.
+
+2008-04-07 Gabriel Dos Reis <gdr@cs.tamu.edu>
+
* interp/compiler.boot (compWithMappingMode): Use getShellEntry.
* interp/define.boot (compDefineFunctor1): Use setShellEntry.
(canCacheLocalDomain): Likewise.
diff --git a/src/interp/i-analy.boot b/src/interp/i-analy.boot
index a46c6b7a..dab675e8 100644
--- a/src/interp/i-analy.boot
+++ b/src/interp/i-analy.boot
@@ -1,4 +1,4 @@
--- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
+-- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd.
-- All rights reserved.
-- Copyright (C) 2007-2008, Gabriel Dos Reis.
-- All rights reserved.
@@ -15,7 +15,7 @@
-- the documentation and/or other materials provided with the
-- distribution.
--
--- - Neither the name of The Numerical ALgorithms Group Ltd. nor the
+-- - Neither the name of The Numerical Algorithms Group Ltd. nor the
-- names of its contributors may be used to endorse or promote products
-- derived from this software without specific prior written permission.
--
@@ -186,7 +186,7 @@ pushDownOp?(op,n) ==
numMms := LENGTH ops
for [.,targ,:argl] in ops repeat
for arg in argl for i in 0.. repeat
- targ = arg => SETELT(sameAsTarg,i,1 + sameAsTarg.i)
+ targ = arg => setShellEntry(sameAsTarg,i,1 + sameAsTarg.i)
-- now see which args have their count = numMms
ok := NIL
for i in 0..(n-1) repeat
diff --git a/src/interp/nrunfast.boot b/src/interp/nrunfast.boot
index add8fb88..8a50582a 100644
--- a/src/interp/nrunfast.boot
+++ b/src/interp/nrunfast.boot
@@ -1,6 +1,6 @@
--- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
+-- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd.
-- All rights reserved.
--- Copyright (C) 2007, Gabriel Dos Reis.
+-- Copyright (C) 2007-2008, Gabriel Dos Reis.
-- All rights reserved.
--
-- Redistribution and use in source and binary forms, with or without
@@ -15,7 +15,7 @@
-- the documentation and/or other materials provided with the
-- distribution.
--
--- - Neither the name of The Numerical ALgorithms Group Ltd. nor the
+-- - Neither the name of The Numerical Algorithms Group Ltd. nor the
-- names of its contributors may be used to endorse or promote products
-- derived from this software without specific prior written permission.
--
@@ -103,7 +103,7 @@ replaceGoGetSlot env ==
keyedSystemError("S2NR0001",[op,sig,goGetDomain.0])
if $monitorNewWorld then
sayLooking1(['"goget stuffing slot",:bright thisSlot,'"of "],thisDomain)
- SETELT(thisDomain,thisSlot,slot)
+ setShellEntry(thisDomain,thisSlot,slot)
if $monitorNewWorld then
sayLooking1('"<------",[CAR slot,:devaluate CDR slot])
slot
@@ -560,7 +560,7 @@ lazyDomainSet(lazyForm,thisDomain,slot) ==
sayLooking1(concat(form2String devaluate thisDomain,
'" activating lazy slot ",slot,'": "),slotDomain)
name := CAR form
- SETELT(thisDomain,slot,slotDomain)
+ setShellEntry(thisDomain,slot,slotDomain)
--=======================================================
-- HasCategory/Attribute
diff --git a/src/interp/nrungo.boot b/src/interp/nrungo.boot
index 8647f6f9..e9228806 100644
--- a/src/interp/nrungo.boot
+++ b/src/interp/nrungo.boot
@@ -105,7 +105,7 @@ goGet(:l) ==
fn:= basicLookup(op,sig,lookupDomain,dollar)
fn = nil => keyedSystemError("S2NR0001",[op,sig,lookupDomain.0])
val:= APPLY(first fn,[:arglist,rest fn])
- SETELT(thisDomain,index,fn)
+ setShellEntry(thisDomain,index,fn)
val
NRTreplaceLocalTypes(t,dom) ==