steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

locals-and-roots
John Benediktsson 2016-03-21 09:33:32 -07:00
parent 85c3ccbb98
commit f1fd761a72
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/mirrors/mirrors.factor
View File

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