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/lisp-backend.boot | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'src/interp/lisp-backend.boot')

diff --git a/src/interp/lisp-backend.boot b/src/interp/lisp-backend.boot
index 3ab11a8a..d5581dfe 100644
--- a/src/interp/lisp-backend.boot
+++ b/src/interp/lisp-backend.boot
@@ -153,7 +153,7 @@ massageFreeVarInits(body,inits) ==
   ['LET,inits,body]
 
 
-expandLoop ['%loop,:iters,body,ret] ==
+expandRepeat ['%repeat,:iters,body,ret] ==
   itersCode := expandIterators iters
   itersCode = "failed" => systemErrorHere ["expandLoop",iters]
   body := middleEndExpand body
@@ -170,7 +170,7 @@ expandLoop ['%loop,:iters,body,ret] ==
     exits = nil => body
     ['%when,[mkpf(exits,"OR"),["RETURN",expandToVMForm ret]],
        [true,body]]
-  body := ['%forever,exits,:cont]
+  body := ['%loop,exits,:cont]
   -- Finally, set up loop-wide initializations.
   expandToVMForm optimize! massageFreeVarInits(body,loopInits)
 
@@ -182,7 +182,7 @@ expandCollect ['%collect,:iters,body] ==
   -- Initialize the variable holding the result; expand as 
   -- if ordinary loop.  But don't forget we built the result
   -- in reverse order.
-  expandLoop ['%loop,:iters,["%init",val,nil],body,['%lreverse!,val]]
+  expandRepeat ['%repeat,:iters,["%init",val,nil],body,['%lreverse!,val]]
 
 expandList(x is ['%list,:args]) ==
   args := [expandToVMForm arg for arg in args]
@@ -653,7 +653,7 @@ for x in [
     ['%sptreq,    :'EQL],               -- system pointer equality
     ['%otherwise,:'T],
     ['%closure,  :'CONS],
-    ['%forever,  :'LOOP],
+    ['%loop,     :'LOOP],
     ['%funcall,  :'FUNCALL],
     ['%function, :'FUNCTION],
     ['%lambda,   :'LAMBDA],
@@ -670,7 +670,7 @@ for x in [
 for x in [
    ['%list,    :function expandList],
    ['%collect, :function expandCollect],
-   ['%loop,    :function expandLoop],
+   ['%repeat,  :function expandRepeat],
    ['%return,  :function expandReturn],
    ['%leave,   :function expandLeave],
    ['%seq,     :function expandSeq],
-- 
cgit v1.2.3