mirrors: make all sequences be "inspectable", could fix #1237
parent
a3d83d2252
commit
ce2b971b3b
|
@ -1,3 +1,2 @@
|
|||
USING: math.vectors.simd mirrors ;
|
||||
IN: math.vectors.simd.mirrors
|
||||
INSTANCE: simd-128 inspected-sequence
|
||||
|
|
|
@ -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 hash-sets hashtables kernel math
|
||||
quotations sequences sets slots slots.private strings vectors ;
|
||||
USING: accessors assocs classes classes.tuple classes.tuple.private
|
||||
combinators fry hash-sets hashtables kernel math sequences sets slots
|
||||
slots.private ;
|
||||
IN: mirrors
|
||||
|
||||
TUPLE: mirror { object read-only } ;
|
||||
|
@ -55,16 +55,9 @@ M: mirror assoc-size
|
|||
|
||||
INSTANCE: mirror assoc
|
||||
|
||||
MIXIN: inspected-sequence
|
||||
INSTANCE: array inspected-sequence
|
||||
INSTANCE: vector inspected-sequence
|
||||
INSTANCE: callable inspected-sequence
|
||||
INSTANCE: byte-array inspected-sequence
|
||||
INSTANCE: string 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: sequence make-mirror <enum> ;
|
||||
M: object make-mirror <mirror> ;
|
||||
|
|
|
@ -2,5 +2,3 @@
|
|||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: mirrors specialized-arrays math.vectors ;
|
||||
IN: specialized-arrays.mirrors
|
||||
|
||||
INSTANCE: specialized-array inspected-sequence
|
||||
|
|
|
@ -2,5 +2,3 @@
|
|||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: specialized-vectors mirrors ;
|
||||
IN: specialized-vectors.mirrors
|
||||
|
||||
INSTANCE: specialized-vector inspected-sequence
|
||||
|
|
Loading…
Reference in New Issue