From 9e5c44dd1191c5e9d579aa8503f3a61a4078b4c7 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sat, 5 Dec 2009 18:20:57 -0500
Subject: [PATCH] math.vectors.simd: ensure that set-alien-vector is open-coded
 in the actual set-nth-unsafe method on SIMD specialized arrays, not just
 inlined instances

---
 basis/math/vectors/simd/simd.factor | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/basis/math/vectors/simd/simd.factor b/basis/math/vectors/simd/simd.factor
index b7b244de12..84468407bd 100644
--- a/basis/math/vectors/simd/simd.factor
+++ b/basis/math/vectors/simd/simd.factor
@@ -9,6 +9,8 @@ IN: math.vectors.simd
 
 ERROR: bad-simd-length got expected ;
 
+ERROR: bad-simd-vector obj ;
+
 <<
 <PRIVATE
 ! Primitive SIMD constructors
@@ -236,7 +238,10 @@ c:<c-type>
     byte-array >>class
     A >>boxed-class
     { A-rep alien-vector A boa } >quotation >>getter
-    { [ underlying>> ] 2dip A-rep set-alien-vector } >quotation >>setter
+    {
+        [ dup simd-128? [ bad-simd-vector ] unless underlying>> ] 2dip
+        A-rep set-alien-vector
+    } >quotation >>setter
     16 >>size
     16 >>align
     A-rep >>rep