math.vectors.simd: ensure that set-alien-vector is open-coded in the actual set-nth...

diff --git a/basis/math/vectors/simd/simd.factor b/basis/math/vectors/simd/simd.factor
index b7b244de124ce4f765a3c522edbacb674a3755ab..84468407bdf619df27057ed9b9f5d183e576251c 100644 (file)
--- 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