mirrors: define M\ hash-set make-mirror so inspector works better on hash-sets.

diff --git a/basis/mirrors/mirrors.factor b/basis/mirrors/mirrors.factor
index 00c6232e76bcadde28173dbfe2d8319ba190baad..ecd6da18faeee325006a998ac1d60ffbf4980ad7 100644 (file)
--- a/basis/mirrors/mirrors.factor
+++ b/basis/mirrors/mirrors.factor
@@ -1,8 +1,8 @@
 ! Copyright (C) 2007, 2008 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors arrays assocs byte-arrays classes
-classes.tuple classes.tuple.private combinators fry hashtables
-kernel math quotations sequences slots slots.private strings
+USING: accessors arrays assocs byte-arrays classes classes.tuple
+classes.tuple.private combinators fry hash-sets hashtables
+kernel math quotations sequences sets slots slots.private
 vectors ;
 IN: mirrors
 
@@ -64,6 +64,7 @@ INSTANCE: byte-array        inspected-sequence
 
 GENERIC: make-mirror ( obj -- assoc )
 M: hashtable make-mirror ;
+M: hash-set make-mirror members make-mirror ;
 M: integer make-mirror drop f ;
 M: inspected-sequence make-mirror <enum> ;
 M: object make-mirror <mirror> ;