From e60c661f72f7ef12a825026f762441aff5bc914d Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 23 Dec 2014 19:22:35 -0800
Subject: [PATCH] gopher: use contents now that it works.

---
 extra/gopher/gopher.factor | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/extra/gopher/gopher.factor b/extra/gopher/gopher.factor
index e28522cfc2..8bb1c51dfb 100644
--- 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>