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

[factor.git] / basis / compression / lzw / lzw.factor

diff --git a/basis/compression/lzw/lzw.factor b/basis/compression/lzw/lzw.factor
index efe026a58ebfd512798d7fb93ad40c0eddbaefc7..cb1d70c55e3e530abb867a7cb71fc411042c8080 100755 (executable)
--- a/basis/compression/lzw/lzw.factor
+++ b/basis/compression/lzw/lzw.factor
@@ -30,7 +30,7 @@ ERROR: code-size-zero ;
 
 : <lzw-uncompress> ( input code-size class -- obj )
     new
-        swap [ throw-code-size-zero ] when-zero >>code-size
+        swap [ code-size-zero ] when-zero >>code-size
         dup code-size>> >>initial-code-size
         dup code-size>> 1 - 2^ >>clear-code
         dup clear-code>> 1 + >>end-of-information-code