gopher.server: sillyness.

diff --git a/extra/gopher/server/server.factor b/extra/gopher/server/server.factor
index f99789e1b3be37f07c01677f2d706bf9e2d5cbf3..d48aa31e15a0fe9f604573ea98e412ddc7d6895e 100644 (file)
--- a/extra/gopher/server/server.factor
+++ b/extra/gopher/server/server.factor
@@ -93,7 +93,7 @@ TUPLE: gopher-server < threaded-server
     readln dup [ "\t\r\n" member? ] find drop [ head ] when*
     trim-tail-separators ;
 
-: handle-gopher-client ( server -- )
+M: gopher-server handle-client*
     dup serving-directory>> read-gopher-path append-path
     dup file-info type>> {
         { +directory+ [ send-directory ] }
@@ -110,8 +110,7 @@ PRIVATE>
         swap resolve-symlinks >>serving-directory
         "gopher.server" >>name
         binary >>encoding
-        5 minutes >>timeout
-        dup '[ _ handle-gopher-client ] >>handler ;
+        5 minutes >>timeout ;
 
 : start-gopher-server ( directory port -- server )
     <gopher-server> start-server ;