From: Björn Lindqvist <bjourne@gmail.com>
Date: Thu, 29 Oct 2015 05:36:38 +0000 (+0100)
Subject: arrays: can use the length>> accessor instead
X-Git-Tag: unmaintained~1754
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=05b6d2d19bad06b29856b37e2790438d50a3ca55

arrays: can use the length>> accessor instead
---

diff --git a/core/arrays/arrays.factor b/core/arrays/arrays.factor
index cd4c207afa..74033911ee 100644
--- a/core/arrays/arrays.factor
+++ b/core/arrays/arrays.factor
@@ -25,4 +25,4 @@ INSTANCE: array sequence
 : 3array ( x y z -- array ) { } 3sequence ; inline
 : 4array ( w x y z -- array ) { } 4sequence ; inline
 
-PREDICATE: pair < array 1 slot 2 number= ;
+PREDICATE: pair < array length>> 2 number= ;