compiler.tree.propagation.slots: looks like you can do without the

constructor-output-class word

diff --git a/basis/compiler/tree/propagation/slots/slots-tests.factor b/basis/compiler/tree/propagation/slots/slots-tests.factor
index 2f1117033c66d38c1e5798811058dbcffe335a7a..19f9a510a700330accc700f210e029dd8187a09b 100644 (file)
--- a/basis/compiler/tree/propagation/slots/slots-tests.factor
+++ b/basis/compiler/tree/propagation/slots/slots-tests.factor
@@ -15,10 +15,6 @@ IN: compiler.tree.propagation.slots.tests
     \ <array> sequence-constructor?
 ] unit-test
 
-{ array byte-array string } [
-    \ <array> \ <byte-array> \ <string> [ constructor-output-class ] tri@
-] unit-test
-
 {
     T{ value-info-state
        { class array }

diff --git a/basis/compiler/tree/propagation/slots/slots.factor b/basis/compiler/tree/propagation/slots/slots.factor
index 84814baf3f2d50fbc929a323f06f6f08c3bd3703..0151a6b8f66c8217cdd51a0b843991705991ae9e 100644 (file)
--- a/basis/compiler/tree/propagation/slots/slots.factor
+++ b/basis/compiler/tree/propagation/slots/slots.factor
@@ -3,23 +3,15 @@
 USING: accessors arrays assocs byte-arrays classes
 classes.algebra classes.tuple classes.tuple.private combinators
 combinators.short-circuit compiler.tree.propagation.info kernel
-math sequences slots.private strings ;
+math sequences slots.private strings words ;
 IN: compiler.tree.propagation.slots
 
 : sequence-constructor? ( word -- ? )
     { <array> <byte-array> (byte-array) <string> } member-eq? ;
 
-: constructor-output-class ( word -- class )
-    {
-        { <array> array }
-        { <byte-array> byte-array }
-        { (byte-array) byte-array }
-        { <string> string }
-    } at ;
-
 : propagate-sequence-constructor ( #call word -- infos )
     [ in-d>> first value-info ]
-    [ constructor-output-class ] bi*
+    [ "default-output-classes" word-prop first ] bi*
     <sequence-info> 1array ;
 
 : fold-<tuple-boa> ( values class -- info )