diff options
Diffstat (limited to 'src/interp/iterator.boot')
| -rw-r--r-- | src/interp/iterator.boot | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/interp/iterator.boot b/src/interp/iterator.boot index 7497b336..ab7a76d7 100644 --- a/src/interp/iterator.boot +++ b/src/interp/iterator.boot @@ -93,7 +93,7 @@ compRepeatOrCollect(form,m,e) == fn(form,[m,:$exitModeStack],[#$exitModeStack,:$leaveLevelStack],$formalArgList ,e) where fn(form,$exitModeStack,$leaveLevelStack,$formalArgList,e) == - $until: local + $until: local := nil oldEnv := e [repeatOrCollect,:itl,body]:= form itl':= @@ -117,7 +117,6 @@ compRepeatOrCollect(form,m,e) == -- then we've boobed. JHD 26.July.1990 $NoValueMode [body',m',e']:= - -- (m1:= listOrVectorElementMode targetMode) and comp(body,m1,e) or compOrCroak(body,bodyMode,e) or return nil if $until then [untilCode,.,e']:= comp($until,$Boolean,e') |