basis: ERROR: changes.

[factor.git] / basis / alien / data / data.factor

diff --git a/basis/alien/data/data.factor b/basis/alien/data/data.factor
index 789094fb8beb8d38d3dc6a5276cae9070a78757c..ba510f7ef3e70b13295172f33a39cf3c700213cf 100644 (file)
--- a/basis/alien/data/data.factor
+++ b/basis/alien/data/data.factor
@@ -79,7 +79,7 @@ M: bad-byte-array-length summary
 
 : cast-array ( byte-array c-type -- array )
     [ binary-object ] dip [ heap-size /mod 0 = ] keep swap
-    [ <c-direct-array> ] [ bad-byte-array-length ] if ; inline
+    [ <c-direct-array> ] [ throw-bad-byte-array-length ] if ; inline
 
 : malloc-array ( n c-type -- array )
     [ heap-size calloc ] [ <c-direct-array> ] 2bi ; inline