mirrors: fix assoc-size for non-tuple-classes.

diff --git a/basis/mirrors/mirrors.factor b/basis/mirrors/mirrors.factor
index 6be42fa469afa083862e2f87f98a0d19d606ef0f..b267621918d863947a251aa75f974e9587d36397 100644 (file)
--- a/basis/mirrors/mirrors.factor
+++ b/basis/mirrors/mirrors.factor
@@ -51,7 +51,8 @@ M: mirror values ( mirror -- values )
     [ object-slots ] [ object>> ] bi
     '[ offset>> _ swap slot ] map ;
 
-M: mirror assoc-size object>> layout-of second ;
+M: mirror assoc-size
+    object>> class-of class-size ;
 
 INSTANCE: mirror assoc
 
@@ -60,7 +61,6 @@ 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 ;