Remove dead code
parent
41fc4ea84e
commit
e2c86aab4d
core/compiler/batch
|
@ -1,50 +0,0 @@
|
|||
! Copyright (C) 2007 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: namespaces dlists kernel words inference.backend
|
||||
optimizer arrays definitions sequences assocs
|
||||
continuations generator compiler ;
|
||||
IN: compiler.batch
|
||||
|
||||
: with-compilation-unit ( quot -- )
|
||||
H{ } clone
|
||||
[ compiled-xts swap with-variable ] keep
|
||||
[ swap add* ] { } assoc>map modify-code-heap ;
|
||||
|
||||
: compile-batch ( words -- )
|
||||
[ [ (compile) ] curry [ print-error ] recover ] each ;
|
||||
|
||||
SYMBOL: compile-queue
|
||||
|
||||
: queue-compile ( word -- )
|
||||
compile-queue get push-front ;
|
||||
|
||||
: compiled-usage ( word -- seq )
|
||||
#! XXX
|
||||
usage [ word? ] subset ;
|
||||
|
||||
: ripple-up ( effect word -- )
|
||||
tuck "compiled-effect" word-prop =
|
||||
[ drop ] [ compiled-usage [ queue-compile ] each ] if ;
|
||||
|
||||
: save-effect ( effect word -- )
|
||||
swap "compiled-effect" set-word-prop ;
|
||||
|
||||
: add-compiled ( word -- )
|
||||
>r f f f f f <compiled> r> compile-results get set-at ;
|
||||
|
||||
: compile-1 ( word -- )
|
||||
dup compile-results get at [ drop ] [
|
||||
[ [ word-dataflow drop ] [ 2drop f ] recover ] keep
|
||||
2dup ripple-up
|
||||
tuck save-effect
|
||||
add-compiled
|
||||
] if ;
|
||||
|
||||
: compile-batch ( words -- )
|
||||
[
|
||||
<dlist> compile-queue set
|
||||
[ queue-compile ] each
|
||||
H{ } clone compile-results set
|
||||
compile-queue get [ compile-1 ] dlist-slurp
|
||||
compile-results get
|
||||
] with-scope ;
|
Loading…
Reference in New Issue