make struct-mirror an instance of assoc

diff --git a/basis/classes/struct/prettyprint/prettyprint.factor b/basis/classes/struct/prettyprint/prettyprint.factor
index 0de56f4ce69e3ec991cf5d11ec367c7f9bb6fa95..58c923e6d0e0768ccaeaf75d9ed46442b04b78b4 100644 (file)
--- 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