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

[factor.git] / extra / tar / tar.factor

diff --git a/extra/tar/tar.factor b/extra/tar/tar.factor
index c8f2c3212a69221034f527d3b7215e9372bedb53..1417c07eeddfe2207f4724ca340031248347877c 100644 (file)
--- a/extra/tar/tar.factor
+++ b/extra/tar/tar.factor
@@ -74,7 +74,7 @@ TYPED: checksum-header ( seq: byte-array -- n )
         [
             binary [ read-tar-header ] with-byte-reader
             dup checksum>>
-        ] dip = [ throw-checksum-error ] unless
+        ] dip = [ checksum-error ] unless
     ] if ;
 
 ERROR: unknown-typeflag ch ;