mirrors: implement keys/values.

diff --git a/basis/mirrors/mirrors.factor b/basis/mirrors/mirrors.factor
index 07b2945e694675d77f19fb1bd6db41eb447d01cb..2fd4f07ab0af24593798d595ec99f810df14fee2 100644 (file)
--- a/basis/mirrors/mirrors.factor
+++ b/basis/mirrors/mirrors.factor
@@ -44,6 +44,13 @@ M: mirror >alist ( mirror -- alist )
     [ object>> [ swap slot ] curry ] bi
     map zip ;
 
+M: mirror keys ( mirror -- keys )
+    object-slots [ name>> ] map ;
+
+M: mirror values ( mirror -- values )
+    [ object-slots [ offset>> ] map ]
+    [ object>> [ swap slot ] curry ] bi map ;
+
 M: mirror assoc-size object>> layout-of second ;
 
 INSTANCE: mirror assoc