compiler.tree.propagation.slots: remove unused word

The last use of `length-accessor?` has been removed in
8e227bc874e356f1e292ab18d1bad1d48966746a, which obsoleted the `length` slot.

diff --git a/basis/compiler/tree/propagation/slots/slots.factor b/basis/compiler/tree/propagation/slots/slots.factor
index 0151a6b8f66c8217cdd51a0b843991705991ae9e..cfc67b1de9588f9e9c5a5d1f15bb4052e79ffd3b 100644 (file)
--- a/basis/compiler/tree/propagation/slots/slots.factor
+++ b/basis/compiler/tree/propagation/slots/slots.factor
@@ -47,9 +47,6 @@ IN: compiler.tree.propagation.slots
         [ swap slot <literal-info> ]
     } 2&& ;
 
-: length-accessor? ( slot info -- ? )
-    [ 1 = ] [ length>> ] bi* and ;
-
 : value-info-slot ( slot info -- info' )
     {
         { [ over 0 = ] [ 2drop fixnum <class-info> ] }