basis: ERROR: changes.

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

diff --git a/basis/compression/lzw/lzw.factor b/basis/compression/lzw/lzw.factor
index 79a8b02e4e105100bca2703f1bd01dc15331c9e0..efe026a58ebfd512798d7fb93ad40c0eddbaefc7 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 [ code-size-zero ] when-zero >>code-size
+        swap [ throw-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
@@ -38,8 +38,6 @@ ERROR: code-size-zero ;
         BV{ } clone >>output
         reset-lzw-uncompress ;
 
-ERROR: not-in-table value ;
-
 : lookup-old-code ( lzw -- vector )
     [ old-code>> ] [ table>> ] bi nth ;