mirrors: implement keys/values.

2013-04-07 12:51:35 -07:00 · 2013-04-07 12:51:35 -07:00 · 290aaa3dcd
parent 3bc658e8d5
commit 290aaa3dcd
1 changed files with 7 additions and 0 deletions
--- 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