compiler.tree.dead-code.simple: undo e1b22e0af4 (#1513)

This will likely cause some test failures. mac32 hopefully won't crash.
char-rename
Björn Lindqvist 2016-11-11 00:18:27 +01:00
parent 9d1edc62c7
commit 5a0e583279
1 changed files with 3 additions and 3 deletions

View File

@ -9,10 +9,10 @@ IN: compiler.tree.dead-code.simple
: flushable-call? ( #call -- ? )
dup word>> dup flushable? [
word>input-infos [
"input-classes" word-prop dup [
[ node-input-infos ] dip
[ value-info<= ] 2all?
] [ drop t ] if*
[ [ class>> ] dip class<= ] 2all?
] [ 2drop t ] if
] [ 2drop f ] if ;
M: #call mark-live-values*