aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp')
-rw-r--r--src/interp/g-opt.boot5
1 files changed, 2 insertions, 3 deletions
diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot
index 84fd563e..7c9ad4bd 100644
--- a/src/interp/g-opt.boot
+++ b/src/interp/g-opt.boot
@@ -600,11 +600,10 @@ optCollectVector form ==
-- if no suitable loop index was found, introduce one.
if index = nil then
index := gensym()
- iters := [:iters,["ISTEP",index,0,1]]
+ iters := [:iters,['STEP,index,0,1]]
vec := gensym()
["LET",[[vec,["makeSimpleArray",["getVMType",eltType],vecSize]]],
- ["REPEAT",:iters,["setSimpleArrayEntry",vec,index,body]],
- vec]
+ ['%loop,:iters,["setSimpleArrayEntry",vec,index,body],vec]]
++ Translate retraction of a value denoted by `e' to sub-domain `m'
++ defined by predicate `pred',