From 5ab5655d4467eddbcef288bde816fe111b901948 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 16 Nov 2008 17:43:21 +0000
Subject: 	* interp/define.boot: More cleanup. 	*
 interp/iterator.boot: Likewise.

---
 src/interp/iterator.boot | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'src/interp/iterator.boot')

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')
-- 
cgit v1.2.3