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

[factor.git] / extra / gopher / gopher.factor

diff --git a/extra/gopher/gopher.factor b/extra/gopher/gopher.factor
index 96d27c99fd767fbb8972031d273a265d55a1dad5..32d81cf3786c23fc20f94091b1d79a0a1aa9ba7a 100644 (file)
--- a/extra/gopher/gopher.factor
+++ b/extra/gopher/gopher.factor
@@ -53,7 +53,7 @@ ERROR: not-a-gopher-url url ;
 
 : gopher ( url -- item-type byte-array )
     dup url? [ >url ] unless
-    dup protocol>> "gopher" = [ throw-not-a-gopher-url ] unless {
+    dup protocol>> "gopher" = [ not-a-gopher-url ] unless {
         [ host>> ]
         [ port>> 70 or <inet> binary ]
         [ path>> rest [ "1/" ] when-empty ]