gopher: change gopher-text to use split1.

diff --git a/extra/gopher/gopher.factor b/extra/gopher/gopher.factor
index 1fb412b6b8c5ae906768a07a1172bc6ca99e6d30..c1d80872c627be07b7e70bce92d61216f4071b7a 100644 (file)
--- a/extra/gopher/gopher.factor
+++ b/extra/gopher/gopher.factor
@@ -81,8 +81,7 @@ M: gopher-link >url
     ] if >url ;
 
 : gopher-text ( object -- lines )
-    utf8 decode string-lines
-    "." over index [ head ] when* ;
+    utf8 decode string-lines { "." } split1 drop ;
 
 : gopher-gif ( object -- image )
     "gif" (image-class) load-image* ;