ranges: speed up M\ range members

diff --git a/core/ranges/ranges.factor b/core/ranges/ranges.factor
index 62305b7c1d0c3ba105e689a73d409bdcb8c5f8ed..f5a4608436bcd65cc08b841816a6c5ced27ca63b 100644 (file)
--- a/core/ranges/ranges.factor
+++ b/core/ranges/ranges.factor
@@ -1,6 +1,6 @@
 ! Copyright (C) 2008, 2010 Slava Pestov.
 ! See https://factorcode.org/license.txt for BSD license.
-USING: accessors classes.algebra classes.tuple kernel locals
+USING: accessors arrays classes.algebra classes.tuple kernel
 math math.order sequences sequences.private sets sorting ;
 IN: ranges
 
@@ -107,6 +107,8 @@ M: range all-unique? drop t ;
 
 M: range duplicates drop f ;
 
+M: range members >array ; ! XXX: just return a T{ range } ? ;
+
 M: range intersect
     over range? [ intersect-range ] [ call-next-method ] if ;