Add a with-scope so that optimize-tree doesn't pollute namespace

db4
Slava Pestov 2009-05-27 18:58:54 -05:00
parent 117cb78d6b
commit 7b88756fd0
1 changed files with 17 additions and 15 deletions

View File

@ -25,6 +25,7 @@ SYMBOL: check-optimizer?
] when ; ] when ;
: optimize-tree ( nodes -- nodes' ) : optimize-tree ( nodes -- nodes' )
[
analyze-recursive analyze-recursive
normalize normalize
propagate propagate
@ -39,4 +40,5 @@ SYMBOL: check-optimizer?
?check ?check
compute-def-use compute-def-use
optimize-modular-arithmetic optimize-modular-arithmetic
finalize ; finalize
] with-scope ;