diff options
Diffstat (limited to 'src/interp/i-spec1.boot')
| -rw-r--r-- | src/interp/i-spec1.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-spec1.boot b/src/interp/i-spec1.boot index c297582e..4e814477 100644 --- a/src/interp/i-spec1.boot +++ b/src/interp/i-spec1.boot @@ -541,7 +541,7 @@ evalCOLLECT(op,[:itrl,body],m) == iters := [evalLoopIter itr for itr in itrl] bod := getArgValue(body,computedMode body) if bod isnt ['SPADCALL,:.] then bod := ['unwrap,bod] - code := timedOptimization asTupleNewCode0(second m, ["%collect",:iters,bod]) + code := timedOptimization asTupleNewCode0(second m, ['%collect,:iters,bod]) putValue(op,object(code,m)) falseFun(x) == nil @@ -569,7 +569,7 @@ interpCOLLECT(op,itrl,body) == emptyAtree op emptyAtree itrl emptyAtree body - code := ["%collect",:[interpIter itr for itr in itrl], + code := ['%collect,:[interpIter itr for itr in itrl], interpCOLLECTbody(body,$indexVars,$indexTypes)] value := timedEVALFUN code t := |