diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-12-15 16:03:09 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-12-15 16:03:09 +0000 |
| commit | b205d89b9690e256e30e221f331ebd1152e6317c (patch) | |
| tree | 76e0e26a49533687923eea1e388cba83ef14816e /src/interp/i-special.boot | |
| parent | d2bb8c8d376da707b0d95198ee447a5eafb80af4 (diff) | |
| download | open-axiom-b205d89b9690e256e30e221f331ebd1152e6317c.tar.gz | |
* interp/compiler.boot: Rename %loop to %repeat. Propagate.
* interp/g-opt.boot: Likewise.
* interp/i-map.boot: Likewise.
* interp/i-special.boot: Likewise.
* interp/lisp-backend.boot: Likewise.
* interp/slam.boot: Likewise.
Diffstat (limited to 'src/interp/i-special.boot')
| -rw-r--r-- | src/interp/i-special.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/i-special.boot b/src/interp/i-special.boot index 8cf776fc..a573b0f8 100644 --- a/src/interp/i-special.boot +++ b/src/interp/i-special.boot @@ -826,7 +826,7 @@ checkForFreeVariables(v,locals) == op in '(LAMBDA QUOTE getValueFromEnvironment) => v op = "LETT" => -- Expands to a SETQ. ["SETF",:[checkForFreeVariables(a,locals) for a in args]] - op in '(COLLECT REPEAT %collect %loop) => + op in '(COLLECT REPEAT %collect %repeat) => first(args) is ["STEP",var,:.] => $boundVariables := [var,:$boundVariables] r := [op,:[checkForFreeVariables(a,locals) for a in args]] @@ -2226,7 +2226,7 @@ evalREPEAT(op,[:itrl,body],repeatMode) == bodyCode := getArgValue(body,bodyMode) if $iterateCount > 0 then bodyCode := ["CATCH",$repeatBodyLabel,bodyCode] - code := ['%loop,:[evalLoopIter itr for itr in itrl],bodyCode,voidValue()] + code := ['%repeat,:[evalLoopIter itr for itr in itrl],bodyCode,voidValue()] code := timedOptimization code if $breakCount > 0 then code := ['CATCH,$repeatLabel,code] val := @@ -2248,7 +2248,7 @@ interpREPEAT(op,itrl,body,repeatMode) == $indexTypes: local := nil code := -- we must insert a CATCH for the iterate clause - ['%loop,:[interpIter itr for itr in itrl], + ['%repeat,:[interpIter itr for itr in itrl], ["CATCH",$repeatBodyLabel,interpLoop(body,$indexVars, $indexTypes,nil)],voidValue()] SPADCATCH(eval $repeatLabel,timedEVALFUN code) |