mirrors: Make strings an inspected-sequence. Fixes #857.

diff --git a/basis/mirrors/mirrors.factor b/basis/mirrors/mirrors.factor
index 7778664556f5ea888b56e2ae0d03acf3ef1feb30..6be42fa469afa083862e2f87f98a0d19d606ef0f 100644 (file)
--- a/basis/mirrors/mirrors.factor
+++ b/basis/mirrors/mirrors.factor
@@ -2,7 +2,8 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors arrays assocs byte-arrays classes
 classes.tuple classes.tuple.private combinators fry hashtables
-kernel math quotations sequences slots slots.private vectors ;
+kernel math quotations sequences slots slots.private strings
+vectors ;
 IN: mirrors
 
 TUPLE: mirror { object read-only } ;
@@ -59,6 +60,7 @@ 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 ;