diff options
Diffstat (limited to 'src/interp/compiler.boot')
| -rw-r--r-- | src/interp/compiler.boot | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index 485b40e1..b1b7399e 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -2288,8 +2288,7 @@ compRepeatOrCollect(form,m,e) == -- ??? we hve a plain old loop; the return type should be Void $loopKind := repeatOrCollect $NoValueMode - [body',m',e']:= - compOrCroak(body,bodyMode,e) or return nil + [body',m',e'] := compOrCroak(body,bodyMode,e) or return nil -- Massage the loop body if we have a structured jump. if $iterateCount > 0 then bodyTag := quoteForm gensym() @@ -2300,6 +2299,8 @@ compRepeatOrCollect(form,m,e) == form':= repeatOrCollect = "%CollectV" => ["%CollectV",localReferenceIfThere m',:itl',body'] + -- We are phasing out use of LISP macros COLLECT and REPEAT. + repeatOrCollect = "COLLECT" => ["%collect",:itl',body'] [repeatOrCollect,:itl',body'] m'' := aggr is [c,.] and c in '(List PrimitiveArray Vector) => [c,m'] |