From 0d4745fa927d5b41037de8313cd28f4e9c3f485f Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 20 Jul 2024 14:44:50 -0700
Subject: [PATCH] mirrors: tweak so assocs display better.

---
 basis/mirrors/mirrors.factor | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/basis/mirrors/mirrors.factor b/basis/mirrors/mirrors.factor
index 329d272dd2e..9aa945a51f4 100644
--- a/basis/mirrors/mirrors.factor
+++ b/basis/mirrors/mirrors.factor
@@ -1,8 +1,8 @@
 ! Copyright (C) 2007, 2008 Slava Pestov.
 ! See https://factorcode.org/license.txt for BSD license.
 USING: accessors assocs classes classes.tuple
-classes.tuple.private combinators hash-sets hashtables kernel
-math sequences sets slots slots.private summary ;
+classes.tuple.private combinators kernel math sequences sets
+slots slots.private summary ;
 IN: mirrors
 
 TUPLE: mirror { object read-only } ;
@@ -59,8 +59,7 @@ M: mirror assoc-size
 INSTANCE: mirror assoc
 
 GENERIC: make-mirror ( obj -- assoc )
-M: hashtable make-mirror ;
-M: hash-set make-mirror members make-mirror ;
-M: integer make-mirror drop f ;
+M: assoc make-mirror ;
+M: set make-mirror members make-mirror ;
 M: sequence make-mirror <enumerated> ;
 M: object make-mirror <mirror> ;