steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/mirrors/mirrors.factor
View File

@ -44,6 +44,13 @@ M: mirror >alist ( mirror -- alist )
[ object>> [ swap slot ] curry ] bi [ object>> [ swap slot ] curry ] bi
map zip ; 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 ; M: mirror assoc-size object>> layout-of second ;
INSTANCE: mirror assoc INSTANCE: mirror assoc