change ERROR: words from throw-foo back to foo.

[factor.git] / basis / math / vectors / simd / simd.factor

diff --git a/basis/math/vectors/simd/simd.factor b/basis/math/vectors/simd/simd.factor
index 90ccfcaf09d8df032ed1ae5cadf9735828d45de6..5434a4c24f5e2b97e23a95a107e57a65b5107484 100644 (file)
--- a/basis/math/vectors/simd/simd.factor
+++ b/basis/math/vectors/simd/simd.factor
@@ -138,7 +138,7 @@ M: simd-128 byte-length drop 16 ; inline
 M: simd-128 new-sequence
     2dup length =
     [ nip [ 16 (byte-array) ] make-underlying ]
-    [ length throw-bad-simd-length ] if ; inline
+    [ length bad-simd-length ] if ; inline
 
 M: simd-128 equal?
     dup simd-rep [ drop v= vall? ] [ 3drop f ] if-both-vectors-match ; inline
@@ -321,7 +321,7 @@ c:<c-type>
     A >>boxed-class
     { A-rep alien-vector A boa } >quotation >>getter
     {
-        [ dup simd-128? [ throw-bad-simd-vector ] unless underlying>> ] 2dip
+        [ dup simd-128? [ bad-simd-vector ] unless underlying>> ] 2dip
         A-rep set-alien-vector
     } >quotation >>setter
     16 >>size