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

mirrors: make all sequences be "inspectable", could fix #1237

locals-and-roots
Björn Lindqvist 2016-03-26 15:08:31 +01:00
parent a3d83d2252
commit ce2b971b3b
4 changed files with 4 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
basis/math/vectors/simd/mirrors/mirrors.factor
View File

@ -1,3 +1,2 @@
USING: math.vectors.simd mirrors ; USING: math.vectors.simd mirrors ;
IN: math.vectors.simd.mirrors IN: math.vectors.simd.mirrors
INSTANCE: simd-128 inspected-sequence

15
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 classes.tuple USING: accessors assocs classes classes.tuple classes.tuple.private
classes.tuple.private combinators fry hash-sets hashtables kernel math combinators fry hash-sets hashtables kernel math sequences sets slots
quotations sequences sets slots slots.private strings vectors ; slots.private ;
IN: mirrors IN: mirrors
TUPLE: mirror { object read-only } ; TUPLE: mirror { object read-only } ;
@ -55,16 +55,9 @@ M: mirror assoc-size
INSTANCE: mirror assoc 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 ) GENERIC: make-mirror ( obj -- assoc )
M: hashtable make-mirror ; M: hashtable make-mirror ;
M: hash-set make-mirror members 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: sequence make-mirror <enum> ;
M: object make-mirror <mirror> ; M: object make-mirror <mirror> ;

2
basis/specialized-arrays/mirrors/mirrors.factor
View File

@ -2,5 +2,3 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: mirrors specialized-arrays math.vectors ; USING: mirrors specialized-arrays math.vectors ;
IN: specialized-arrays.mirrors IN: specialized-arrays.mirrors
INSTANCE: specialized-array inspected-sequence

2
basis/specialized-vectors/mirrors/mirrors.factor
View File

@ -2,5 +2,3 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: specialized-vectors mirrors ; USING: specialized-vectors mirrors ;
IN: specialized-vectors.mirrors IN: specialized-vectors.mirrors
INSTANCE: specialized-vector inspected-sequence