arrays: can use the length>> accessor instead

[factor.git] / core / arrays / arrays.factor

diff --git a/core/arrays/arrays.factor b/core/arrays/arrays.factor
index cd4c207afa01a0a0b2c1da9a1d7b21ea9992a6cf..74033911ee1cb075641a76b784d4c230ad389378 100644 (file)
--- 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= ;