aboutsummaryrefslogtreecommitdiff
path: root/src/interp/i-analy.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/i-analy.boot')
-rw-r--r--src/interp/i-analy.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-analy.boot b/src/interp/i-analy.boot
index 6a75ba52..4949f043 100644
--- a/src/interp/i-analy.boot
+++ b/src/interp/i-analy.boot
@@ -195,7 +195,7 @@ pushDownOp?(op,n) ==
numMms := # ops
for [.,targ,:argl] in ops repeat
for arg in argl for i in 0.. repeat
- targ = arg => setShellEntry(sameAsTarg,i,1 + sameAsTarg.i)
+ targ = arg => vectorRef(sameAsTarg,i) := 1 + sameAsTarg.i
-- now see which args have their count = numMms
ok := NIL
for i in 0..(n-1) repeat