make struct-mirror an instance of assoc

2009-09-03 22:31:55 -05:00 · 2009-09-03 22:31:55 -05:00 · 57a40bc703
parent b1ba82c84f
commit 57a40bc703
1 changed files with 2 additions and 0 deletions
--- a/basis/classes/struct/prettyprint/prettyprint.factor
+++ b/basis/classes/struct/prettyprint/prettyprint.factor
@ -116,3 +116,5 @@ M: struct-mirror >alist ( mirror -- alist )
    ] bi append ;

 M: struct make-mirror <struct-mirror> ;
+
+INSTANCE: struct-mirror assoc