extra: use throw-foo for ERROR: change

[factor.git] / extra / usa-cities / usa-cities.factor

diff --git a/extra/usa-cities/usa-cities.factor b/extra/usa-cities/usa-cities.factor
index 111ea991592d9b2a16fca566b27ac8dbe2dab5b9..d1020037d92041edaefe340cf9fb1f6702fa2599 100644 (file)
--- a/extra/usa-cities/usa-cities.factor
+++ b/extra/usa-cities/usa-cities.factor
@@ -22,7 +22,7 @@ M: no-such-state summary drop "No such state" ;
 
 MEMO: string>state ( string -- state )
     dup states [ name>> = ] with find nip
-    [ ] [ no-such-state ] ?if ;
+    [ ] [ throw-no-such-state ] ?if ;
 
 TUPLE: city
 first-zip name state latitude longitude gmt-offset dst-offset ;