From 270fe50ba3f52f62cb7c3a2a1accfbd0154264e3 Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Fri, 4 Dec 2009 12:43:50 -0800 Subject: [PATCH] add methods to vs+/vs-/vs* on specialized-arrays so that they saturate as well --- basis/specialized-arrays/specialized-arrays-tests.factor | 2 -- basis/specialized-arrays/specialized-arrays.factor | 4 ++++ 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/basis/specialized-arrays/specialized-arrays-tests.factor b/basis/specialized-arrays/specialized-arrays-tests.factor index ef2654be45..c7e1285689 100644 --- a/basis/specialized-arrays/specialized-arrays-tests.factor +++ b/basis/specialized-arrays/specialized-arrays-tests.factor @@ -10,8 +10,6 @@ FROM: alien.c-types => float ; SPECIALIZED-ARRAY: int SPECIALIZED-ARRAYS: bool ushort char uint float ulonglong ; -[ ulonglong ] [ ulonglong-array{ } element-type ] unit-test - [ t ] [ { 1 2 3 } >int-array int-array? ] unit-test [ t ] [ int-array{ 1 2 3 } int-array? ] unit-test diff --git a/basis/specialized-arrays/specialized-arrays.factor b/basis/specialized-arrays/specialized-arrays.factor index b6f7209cc6..aab0408dc3 100644 --- a/basis/specialized-arrays/specialized-arrays.factor +++ b/basis/specialized-arrays/specialized-arrays.factor @@ -104,6 +104,10 @@ SYNTAX: A@ scan-object scan-object suffix! ; INSTANCE: A specialized-array +M: A vs+ [ + T c-type-clamp ] 2map ; +M: A vs- [ - T c-type-clamp ] 2map ; +M: A vs* [ * T c-type-clamp ] 2map ; + ;FUNCTOR GENERIC: (underlying-type) ( c-type -- c-type' )