diff options
author | dos-reis <gdr@axiomatics.org> | 2008-11-16 17:43:21 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-11-16 17:43:21 +0000 |
commit | 5ab5655d4467eddbcef288bde816fe111b901948 (patch) | |
tree | 538ed443581331037337fbc764f5a30712e581ea /src/interp/iterator.boot | |
parent | d4b6fd810d79d81b675967d52134f74967b53cf4 (diff) | |
download | open-axiom-5ab5655d4467eddbcef288bde816fe111b901948.tar.gz |
* interp/define.boot: More cleanup.
* interp/iterator.boot: Likewise.
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') |