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

[factor.git] / extra / io / binary / fast / fast.factor

diff --git a/extra/io/binary/fast/fast.factor b/extra/io/binary/fast/fast.factor
index 13a9f1df0270dad77d39070b3d417b101c3be6a1..64206a7cd52fb77bc13b03dff2195b2e59757567 100644 (file)
--- a/extra/io/binary/fast/fast.factor
+++ b/extra/io/binary/fast/fast.factor
@@ -14,7 +14,7 @@ IN: io.binary.fast
 ERROR: bad-length bytes n ;
 
 : check-length ( bytes n -- bytes n )
-    2dup [ length ] dip > [ throw-bad-length ] when ; inline
+    2dup [ length ] dip > [ bad-length ] when ; inline
 
 <<
 : be-range ( n -- range )