show c-type instead of factor type

diff --git a/basis/mirrors/mirrors.factor b/basis/mirrors/mirrors.factor
index 4e4e97942a55710f21a9247075283b574a042e12..c081e1015e16adda4743460ffed8084b9bb252b7 100644 (file)
--- a/basis/mirrors/mirrors.factor
+++ b/basis/mirrors/mirrors.factor
@@ -55,4 +55,6 @@ M: array make-mirror <enum> ;
 M: vector make-mirror <enum> ;
 M: quotation make-mirror <enum> ;
 M: object make-mirror <mirror> ;
-M: struct make-mirror struct>assoc [ [ [ name>> ] [ class>> ] bi 2array ] dip ] assoc-map ;
+
+M: struct make-mirror struct>assoc
+    [ [ [ name>> ] [ c-type>> ] bi 2array ] dip ] assoc-map ;