Fix mirrors

db4
Slava Pestov 2008-11-06 02:52:54 -06:00
parent 4c226c7813
commit 6f432811f5
1 changed files with 1 additions and 1 deletions

View File

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