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

[factor.git] / extra / io / streams / zeros / zeros.factor

diff --git a/extra/io/streams/zeros/zeros.factor b/extra/io/streams/zeros/zeros.factor
index bc6c7c5ffe3d7cc6a51c738cad66473fd2b42ce8..2077c64610824db420d5764a2e17232f62011bf0 100644 (file)
--- a/extra/io/streams/zeros/zeros.factor
+++ b/extra/io/streams/zeros/zeros.factor
@@ -33,7 +33,7 @@ ERROR: invalid-file-size n path ;
 
 : zero-file ( n path -- )
     {
-        { [ over 0 < ] [ throw-invalid-file-size ] }
+        { [ over 0 < ] [ invalid-file-size ] }
         { [ over 0 = ] [ nip touch-file ] }
         [ (zero-file) ]
     } cond ;