show c-type instead of factor type

2009-08-31 18:58:42 -05:00 · 2009-08-31 18:58:42 -05:00 · 80e2feacd9
parent 1732bd730a
commit 80e2feacd9
1 changed files with 3 additions and 1 deletions
--- 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 ;