make simd objects inspectable

db4
Joe Groff 2009-10-16 14:22:20 -05:00
parent eb92a45152
commit 4809253c48
1 changed files with 4 additions and 2 deletions

View File

@ -2,8 +2,8 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: assocs hashtables kernel sequences generic words USING: assocs hashtables kernel sequences generic words
arrays classes slots slots.private classes.tuple arrays classes slots slots.private classes.tuple
classes.tuple.private math vectors quotations accessors classes.tuple.private math vectors math.vectors quotations
combinators byte-arrays specialized-arrays ; accessors combinators byte-arrays specialized-arrays ;
IN: mirrors IN: mirrors
TUPLE: mirror { object read-only } ; TUPLE: mirror { object read-only } ;
@ -54,6 +54,8 @@ INSTANCE: vector enumerated-sequence
INSTANCE: callable enumerated-sequence INSTANCE: callable enumerated-sequence
INSTANCE: byte-array enumerated-sequence INSTANCE: byte-array enumerated-sequence
INSTANCE: specialized-array enumerated-sequence INSTANCE: specialized-array enumerated-sequence
INSTANCE: simd-128 enumerated-sequence
INSTANCE: simd-256 enumerated-sequence
GENERIC: make-mirror ( obj -- assoc ) GENERIC: make-mirror ( obj -- assoc )
M: hashtable make-mirror ; M: hashtable make-mirror ;