diff options
author | dos-reis <gdr@axiomatics.org> | 2008-08-09 14:13:09 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-08-09 14:13:09 +0000 |
commit | bbc597dd3deeca1bff1c35491c1911ce50f1af60 (patch) | |
tree | 4329038fa43164b6bfa3516bfb6debe13d87cc36 /src/interp/g-opt.boot | |
parent | ca48929b74dee0ecfca92200ec4d5879bff0d4f5 (diff) | |
download | open-axiom-bbc597dd3deeca1bff1c35491c1911ce50f1af60.tar.gz |
* interp/buildom.boot: Rename AST code LET to %LET throughout.
* interp/c-util.boot: Likewise.
* interp/comp.lisp: Likewise.
* interp/compiler.boot: Likewise.
* interp/cparse.boot: Likewise.
* interp/def.lisp: Likewise.
* interp/define.boot: Likewise.
* interp/functor.boot: Likewise.
* interp/g-opt.boot: Likewise.
* interp/i-eval.boot: Likewise.
* interp/i-intern.boot: Likewise.
* interp/i-map.boot: Likewise.
* interp/i-spec1.boot: Likewise.
* interp/i-spec2.boot: Likewise.
* interp/iterator.boot: Likewise.
* interp/mark.boot: Likewise.
* interp/newaux.lisp: Likewise.
* interp/nruncomp.boot: Likewise.
* interp/nrunopt.boot: Likewise.
* interp/package.boot: Likewise.
* interp/parse.boot: Likewise.
* interp/pf2atree.boot: Likewise.
* interp/pf2sex.boot: Likewise.
* interp/postpar.boot: Likewise.
* interp/property.lisp: Likewise.
* interp/pspad1.boot: Likewise.
* interp/pspad2.boot: Likewise.
* interp/slam.boot: Likewise.
* interp/spad.lisp: Likewise.
* interp/wi1.boot: Likewise.
* interp/wi2.boot: Likewise.
Diffstat (limited to 'src/interp/g-opt.boot')
-rw-r--r-- | src/interp/g-opt.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot index 00d8c6e0..7ef701c4 100644 --- a/src/interp/g-opt.boot +++ b/src/interp/g-opt.boot @@ -121,7 +121,7 @@ optCatch (x is ["CATCH",g,a]) == s is ["THROW", =g,u] => changeThrowToGo(u,g) rplac(first s,"PROGN") - rplac(rest s,[["LET",CADR g,u],["GO",CADR g]]) + rplac(rest s,[["%LET",CADR g,u],["GO",CADR g]]) changeThrowToGo(first s,g) changeThrowToGo(rest s,g) rplac(first x,"SEQ") @@ -172,7 +172,7 @@ optCallSpecially(q,x,n,R) == lookup(a,l) == null l => nil [l',:l]:= l - l' is ["LET", =a,l',:.] => l' + l' is ["%LET", =a,l',:.] => l' lookup(a,l) nil @@ -299,7 +299,7 @@ optSEQ ["SEQ",:l] == tryToRemoveSEQ SEQToCOND getRidOfTemps l where getRidOfTemps l == null l => nil - l is [["LET",g,x,:.],:r] and GENSYMP g and 2>numOfOccurencesOf(g,r) => + l is [["%LET",g,x,:.],:r] and GENSYMP g and 2>numOfOccurencesOf(g,r) => getRidOfTemps substitute(x,g,r) first l="/throwAway" => getRidOfTemps rest l --this gets rid of unwanted labels generated by declarations in SEQs |