arrays: make it so pair? doesn't call length, fixes #1496

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

diff --git a/core/arrays/arrays.factor b/core/arrays/arrays.factor
index 8fc2f88b6526a6e9fb0847ea2fe22c18adc34722..cd4c207afa01a0a0b2c1da9a1d7b21ea9992a6cf 100644 (file)
--- a/core/arrays/arrays.factor
+++ b/core/arrays/arrays.factor
@@ -1,6 +1,6 @@
 ! Copyright (C) 2005, 2010 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors kernel math sequences sequences.private ;
+USING: accessors kernel math sequences sequences.private slots.private ;
 IN: arrays
 
 BUILTIN: array { length array-capacity read-only initial: 0 } ;
@@ -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 length 2 number= ;
+PREDICATE: pair < array 1 slot 2 number= ;