From: Björn Lindqvist <bjourne@gmail.com>
Date: Sat, 26 Mar 2016 14:08:31 +0000 (+0100)
Subject: mirrors: make all sequences be "inspectable", could fix #1237
X-Git-Tag: unmaintained~1420
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=ce2b971b3b58556179102d369854aa1326fb9c82

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 df67703d5c..bbff174232 100644
--- 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 ca8ff7fd6a..f6e4cdb293 100644
--- 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 17bed718fb..7c21e1b1b8 100644
--- 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 bb559a0dc6..5917305ffb 100644
--- 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