20 lines
553 B
Factor
20 lines
553 B
Factor
! Copyright (C) 2008 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: compiler.tree.builder compiler.tree.cleanup
|
|
compiler.tree.dead-code compiler.tree.def-use
|
|
compiler.tree.normalization compiler.tree.propagation
|
|
compiler.tree.recursive namespaces sequences ;
|
|
IN: compiler.tree.late-optimizations
|
|
|
|
: splice-quot ( quot -- nodes )
|
|
[
|
|
build-tree
|
|
analyze-recursive
|
|
normalize
|
|
propagate
|
|
cleanup-tree
|
|
compute-def-use
|
|
remove-dead-code
|
|
but-last
|
|
] with-scope ;
|