From 4809253c484c389f25dd11c8836c9d31e98bd282 Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Fri, 16 Oct 2009 14:22:20 -0500 Subject: [PATCH] make simd objects inspectable --- basis/mirrors/mirrors.factor | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/basis/mirrors/mirrors.factor b/basis/mirrors/mirrors.factor index 6ec6a9fbb2..b9f9019245 100644 --- a/basis/mirrors/mirrors.factor +++ b/basis/mirrors/mirrors.factor @@ -2,8 +2,8 @@ ! See http://factorcode.org/license.txt for BSD license. USING: assocs hashtables kernel sequences generic words arrays classes slots slots.private classes.tuple -classes.tuple.private math vectors quotations accessors -combinators byte-arrays specialized-arrays ; +classes.tuple.private math vectors math.vectors quotations +accessors combinators byte-arrays specialized-arrays ; IN: mirrors TUPLE: mirror { object read-only } ; @@ -54,6 +54,8 @@ INSTANCE: vector enumerated-sequence INSTANCE: callable enumerated-sequence INSTANCE: byte-array enumerated-sequence INSTANCE: specialized-array enumerated-sequence +INSTANCE: simd-128 enumerated-sequence +INSTANCE: simd-256 enumerated-sequence GENERIC: make-mirror ( obj -- assoc ) M: hashtable make-mirror ;