better keys in sturct mirrors

diff --git a/basis/mirrors/mirrors.factor b/basis/mirrors/mirrors.factor
index effcc51caa9d37017ded16cd578989d393cd3517..4e4e97942a55710f21a9247075283b574a042e12 100644 (file)
--- a/basis/mirrors/mirrors.factor
+++ b/basis/mirrors/mirrors.factor
@@ -55,4 +55,4 @@ 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 [ [ class>> ] dip ] assoc-map ;
+M: struct make-mirror struct>assoc [ [ [ name>> ] [ class>> ] bi 2array ] dip ] assoc-map ;