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

[factor.git] / extra / zoneinfo / zoneinfo.factor

diff --git a/extra/zoneinfo/zoneinfo.factor b/extra/zoneinfo/zoneinfo.factor
index 7c1b472e42f54649a5cada5ebe2e26850b66e134..19368e32ab597633b85900aa951655a5dd80ec74 100644 (file)
--- a/extra/zoneinfo/zoneinfo.factor
+++ b/extra/zoneinfo/zoneinfo.factor
@@ -154,7 +154,7 @@ ERROR: zone-not-found name ;
 
 : find-zone ( string -- rules )
     raw-zone-map
-    [ last ] assoc-map ?at [ throw-zone-not-found ] unless ;
+    [ last ] assoc-map ?at [ zone-not-found ] unless ;
 
 : find-zone-rules ( string -- zone rules )
     find-zone dup rules/save>> find-rules ;