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/lisp-backend.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/lisp-backend.boot')
| -rw-r--r-- | src/interp/lisp-backend.boot | 10 |
1 files changed, 5 insertions, 5 deletions
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], |