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

[factor.git] / extra / ip-parser / ip-parser.factor

diff --git a/extra/ip-parser/ip-parser.factor b/extra/ip-parser/ip-parser.factor
index 558402df940bea661a34094c506f03fd4b789303..5dc03fae7281962f88abd8bc8685da4017ae778e 100644 (file)
--- a/extra/ip-parser/ip-parser.factor
+++ b/extra/ip-parser/ip-parser.factor
@@ -28,7 +28,7 @@ ERROR: invalid-ipv4 str ;
         { 2 [ 1 cut { 0 0 } glue ] }
         { 3 [ 2 cut { 0 } glue ] }
         { 4 [ ] }
-        [ drop throw-invalid-ipv4 ]
+        [ drop invalid-ipv4 ]
     } case bubble nip ; inline
 
 PRIVATE>