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

This will likely cause some test failures. mac32 hopefully won't crash.

diff --git a/basis/compiler/tree/dead-code/simple/simple.factor b/basis/compiler/tree/dead-code/simple/simple.factor
index a4df21392d9c7463a8fc86fda0d5c3594c9b57b1..bdb670773c09f760bc4d3edb6cacee9637d6615d 100644 (file)
--- a/basis/compiler/tree/dead-code/simple/simple.factor
+++ b/basis/compiler/tree/dead-code/simple/simple.factor
@@ -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*