diff options
Diffstat (limited to 'src/interp/i-map.boot')
-rw-r--r-- | src/interp/i-map.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-map.boot b/src/interp/i-map.boot index 9bb13e51..d654e787 100644 --- a/src/interp/i-map.boot +++ b/src/interp/i-map.boot @@ -231,7 +231,7 @@ getUserIdentifiersIn body == userIds := S_+(getUserIdentifiersInIterators itl,getUserIdentifiersIn body1) S_-(userIds,getIteratorIds itl) - body is ['%loop,:itl,val,body1] => + body is ['%repeat,:itl,val,body1] => userIds := S_+(getUserIdentifiersInIterators itl,getUserIdentifiersIn body1) userIds := S_+(getUserIdentifiersIn val,userIds) @@ -1036,7 +1036,7 @@ findLocalVars1(op,form) == mkLocalVar(op,var) form is [oper,:itrl,body] and oper in '(REPEAT COLLECT %collect) => findLocalsInLoop(op,itrl,body) - form is ['%loop,:itrl,val,body] => + form is ['%repeat,:itrl,val,body] => findLocalsInLoop(op,itrl,[body,val]) form is ['%bind,bindings,:body] => findExternalVarsInBindExpr(op,bindings,body) |