mirrors: make all sequences be "inspectable", could fix #1237

diff --git a/basis/math/vectors/simd/mirrors/mirrors.factor b/basis/math/vectors/simd/mirrors/mirrors.factor
index df67703d5cf2aeba7e4892d79b5e89226d58c917..bbff174232ad66ad7e7c74c9d7efece2826e9179 100644 (file)
--- a/basis/math/vectors/simd/mirrors/mirrors.factor
+++ b/basis/math/vectors/simd/mirrors/mirrors.factor
@@ -1,3 +1,2 @@
 USING: math.vectors.simd mirrors ;
 IN: math.vectors.simd.mirrors
-INSTANCE: simd-128          inspected-sequence

diff --git a/basis/mirrors/mirrors.factor b/basis/mirrors/mirrors.factor
index ca8ff7fd6ace72be0b4a547be2a519a62c0c588b..f6e4cdb2933a368f8535117c793bd2494aedf606 100644 (file)
--- a/basis/mirrors/mirrors.factor
+++ b/basis/mirrors/mirrors.factor
@@ -1,8 +1,8 @@
 ! Copyright (C) 2007, 2008 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors arrays assocs byte-arrays classes classes.tuple
-classes.tuple.private combinators fry hash-sets hashtables kernel math
-quotations sequences sets slots slots.private strings vectors ;
+USING: accessors assocs classes classes.tuple classes.tuple.private
+combinators fry hash-sets hashtables kernel math sequences sets slots
+slots.private ;
 IN: mirrors
 
 TUPLE: mirror { object read-only } ;
@@ -55,16 +55,9 @@ M: mirror assoc-size
 
 INSTANCE: mirror assoc
 
-MIXIN: inspected-sequence
-INSTANCE: array             inspected-sequence
-INSTANCE: vector            inspected-sequence
-INSTANCE: callable          inspected-sequence
-INSTANCE: byte-array        inspected-sequence
-INSTANCE: string            inspected-sequence
-
 GENERIC: make-mirror ( obj -- assoc )
 M: hashtable make-mirror ;
 M: hash-set make-mirror members make-mirror ;
 M: integer make-mirror drop f ;
-M: inspected-sequence make-mirror <enum> ;
+M: sequence make-mirror <enum> ;
 M: object make-mirror <mirror> ;

diff --git a/basis/specialized-arrays/mirrors/mirrors.factor b/basis/specialized-arrays/mirrors/mirrors.factor
index 17bed718fb8f0c99de33f9486a0eb9f444fe1f42..7c21e1b1b821f0b3db2040c561a341a26034f211 100644 (file)
--- a/basis/specialized-arrays/mirrors/mirrors.factor
+++ b/basis/specialized-arrays/mirrors/mirrors.factor
@@ -2,5 +2,3 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: mirrors specialized-arrays math.vectors ;
 IN: specialized-arrays.mirrors
-
-INSTANCE: specialized-array inspected-sequence

diff --git a/basis/specialized-vectors/mirrors/mirrors.factor b/basis/specialized-vectors/mirrors/mirrors.factor
index bb559a0dc62a9128b555a7a02ed227a838a95ab1..5917305ffb06e03e86ddccae794ccf8c71aea9d2 100644 (file)
--- a/basis/specialized-vectors/mirrors/mirrors.factor
+++ b/basis/specialized-vectors/mirrors/mirrors.factor
@@ -2,5 +2,3 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: specialized-vectors mirrors ;
 IN: specialized-vectors.mirrors
-
-INSTANCE: specialized-vector inspected-sequence