Skip to content

Commit

Permalink
mirrors: tweak so assocs display better.
Browse files Browse the repository at this point in the history
  • Loading branch information
mrjbq7 committed Jul 20, 2024
1 parent 6b1c083 commit 0d4745f
Showing 1 changed file with 4 additions and 5 deletions.
9 changes: 4 additions & 5 deletions basis/mirrors/mirrors.factor
Original file line number Diff line number Diff line change
@@ -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 } ;
Expand Down Expand Up @@ -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> ;

0 comments on commit 0d4745f

Please sign in to comment.