diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-12-28 06:12:21 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-12-28 06:12:21 +0000 |
| commit | 292bd212f1c30a51f0191128d5a9cd2691c5ccf9 (patch) | |
| tree | b3df4b4c43f312e5f0ac52dde5de9b3791833714 /src/interp/g-opt.boot | |
| parent | 1fd6a63bbce9234ba3b8efa12c9a91643f0a87a1 (diff) | |
| download | open-axiom-292bd212f1c30a51f0191128d5a9cd2691c5ccf9.tar.gz | |
* boot/tokens.boot: Remove redundant renaming of REM.
loopBody and loopExit are not selectors.
* interp/i-output.boot: Include sys-utility.
* interp/sys-utility.boot (last): New macro.
(loopBody): Likewise.
* interp/vmlisp.lisp (LASTNODE): Remove.
(LASTPAIR): Likewise.
(last): Do not define here.
Diffstat (limited to 'src/interp/g-opt.boot')
| -rw-r--r-- | src/interp/g-opt.boot | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot index 880d088b..ef5b6a51 100644 --- a/src/interp/g-opt.boot +++ b/src/interp/g-opt.boot @@ -317,6 +317,8 @@ unnestWhen! x == f x where x is ['%seq,:.] => for stmts in tails x.args repeat stmts.first := f first stmts + x is ['%repeat,:.] => + x.loopBody := unnestWhen! x.loopBody x ++ Transform nested-to-tower. |