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

[factor.git] / extra / tzinfo / tzinfo.factor

diff --git a/extra/tzinfo/tzinfo.factor b/extra/tzinfo/tzinfo.factor
index 02a81ee96c8f0bfae0ba591bea7fc4e53c3a36b4..998353eab4bccb8e85a8a25179a0ca83342013c0 100644 (file)
--- a/extra/tzinfo/tzinfo.factor
+++ b/extra/tzinfo/tzinfo.factor
@@ -27,7 +27,7 @@ PACKED-STRUCT: ttinfo
 ERROR: bad-magic ;
 
 : check-magic ( -- )
-    4 read "TZif" sequence= [ throw-bad-magic ] unless ;
+    4 read "TZif" sequence= [ bad-magic ] unless ;
 
 TUPLE: tzfile header transition-times local-times types abbrevs
 leaps is-std is-gmt ;