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

[factor.git] / extra / metar / metar.factor

diff --git a/extra/metar/metar.factor b/extra/metar/metar.factor
index a874da893d8844fdf37f09091b719f82048670f1..54c26dfab46320c32613604890cf690b1514529f 100644 (file)
--- a/extra/metar/metar.factor
+++ b/extra/metar/metar.factor
@@ -22,7 +22,7 @@ ERROR: bad-location str ;
         { 3 [ first3 [ string>number ] tri@ 60.0 / + 60.0 / + ] }
         { 2 [ first2 [ string>number ] bi@ 60.0 / + ] }
         { 1 [ first string>number ] }
-        [ drop throw-bad-location ]
+        [ drop bad-location ]
     } case ;
 
 : string>longitude ( str -- lon/f )