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/compiler.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/compiler.boot')
-rw-r--r-- | src/interp/compiler.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index 434f3c93..b93ccd4e 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -2418,7 +2418,7 @@ compReduce1(form is ["REDUCE",op,.,collectForm],m,e,$formalArgList) == [untilCode,.,e]:= comp($until,$Boolean,e) or return nil itl := substitute(["UNTIL",untilCode],'$until,itl) firstTime := gensym() - finalCode := ['%loop, + finalCode := ['%repeat, ['%init,accu,'%nil],['%init,firstTime,'%true],:itl, ['%bind,[[b,third bval]], ['%seq, @@ -2475,7 +2475,7 @@ massageLoop x == main x where x isnt ['%scope,tag,['REPEAT,:iters,body]] => x nullifyTargetingLeaves(body,tag) containsNonLocalControl?(body,nil) => systemErrorHere ['massageLoop,x] - ['%scope,tag,['%loop,:iters,body,'%nil]] + ['%scope,tag,['%repeat,:iters,body,'%nil]] containsNonLocalControl?(x,tags) == atomic? x => false x is ['%leave,tag,x'] => |