From 01a389cb68b122371f72c4fd25017100d69f0bc4 Mon Sep 17 00:00:00 2001
From: timor <timor.dd@googlemail.com>
Date: Tue, 19 May 2020 17:53:33 +0200
Subject: [PATCH] compiler.tree.propagation.slots: remove unused word

The last use of `length-accessor?` has been removed in
8e227bc874e356f1e292ab18d1bad1d48966746a, which obsoleted the `length` slot.
---
 basis/compiler/tree/propagation/slots/slots.factor | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/basis/compiler/tree/propagation/slots/slots.factor b/basis/compiler/tree/propagation/slots/slots.factor
index 0151a6b8f6..cfc67b1de9 100644
--- 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> ] }