mirrors: implement keys/values.

db4
John Benediktsson 2013-04-07 12:51:35 -07:00
parent 3bc658e8d5
commit 290aaa3dcd
1 changed files with 7 additions and 0 deletions

View File

@ -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