diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-12-10 23:49:01 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-12-10 23:49:01 +0000 |
| commit | c5d7d1291dad4814157c57406fdfbd233a16bcb0 (patch) | |
| tree | 05730dba14066f7477a12db0f54e931c6b49a09a /src/interp/g-opt.boot | |
| parent | 367602f23aeedbfae9887771527d72a860b4bc3f (diff) | |
| download | open-axiom-c5d7d1291dad4814157c57406fdfbd233a16bcb0.tar.gz | |
* interp/g-opt.boot (optSeq): Remove splicePROGN as redundant.
* interp/functor.boot (optFunctorBody): Generate %seq form, not PROGN.
(DescendCode): Likewise.
* interp/c-util.boot (displayComp): Fix thinko.
Diffstat (limited to 'src/interp/g-opt.boot')
| -rw-r--r-- | src/interp/g-opt.boot | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot index a16041a3..23f53c16 100644 --- a/src/interp/g-opt.boot +++ b/src/interp/g-opt.boot @@ -555,11 +555,7 @@ replaceableTemporary?(g,x) == or/[jumpTarget?(g,x') for x' in x] optSeq ['%seq,:l] == - tryToRemoveSeq ['%seq,:getRidOfTemps splicePROGN l] where - splicePROGN l == - atomic? l => l - l is [["PROGN",:stmts],:l'] => [:stmts,:l'] - l.rest := splicePROGN rest l + tryToRemoveSeq ['%seq,:getRidOfTemps l] where getRidOfTemps l == null l => nil l is [["%LET",g,x],:r] and replaceableTemporary?(g,r) => |