gopher: use contents now that it works.

diff --git a/extra/gopher/gopher.factor b/extra/gopher/gopher.factor
index e28522cfc25241bb7a028c6e0154bd70d967feb2..8bb1c51dfb1c873592bbb2406053d864e056294e 100644 (file)
--- a/extra/gopher/gopher.factor
+++ b/extra/gopher/gopher.factor
@@ -43,8 +43,7 @@ CONSTANT: A_PLUS_SOUND CHAR: <
     [ dup length 1 > [ string>number ] [ first ] if ]
     [
         "?" split1 [ "\t" glue ] when*
-        "\r\n" append utf8 encode write flush
-        input-stream get (stream-contents-by-block)
+        "\r\n" append utf8 encode write flush contents
     ] bi* ;
 
 PRIVATE>