From b205d89b9690e256e30e221f331ebd1152e6317c Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 15 Dec 2011 16:03:09 +0000
Subject: 	* 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.

---
 src/interp/compiler.boot | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

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