From 80e2feacd95a7472ecdfbb23f0c3eff485125d58 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 31 Aug 2009 18:58:42 -0500
Subject: [PATCH] show c-type instead of factor type

---
 basis/mirrors/mirrors.factor | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/basis/mirrors/mirrors.factor b/basis/mirrors/mirrors.factor
index 4e4e97942a..c081e1015e 100644
--- 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 ;