http.websockets: remove comment

diff --git a/basis/http/websockets/websockets.factor b/basis/http/websockets/websockets.factor
index be723e5a345e1185fcd214c3c604b837c44aeac9..d3f450d5a5741ca7fde9d8dbd48fb8af56fcc124 100644 (file)
--- a/basis/http/websockets/websockets.factor
+++ b/basis/http/websockets/websockets.factor
@@ -124,15 +124,3 @@ ERROR: unimplemented-opcode opcode message ;
 
 : read-websocket-loop ( quot: ( obj opcode -- loop? ) -- )
     '[ read-websocket _ dip and ] loop ; inline
-
-![[
-: handle-websocket ( obj opcode -- loop? )
-    {
-        { f [ [ "closed with error, code %d" sprintf . flush ] with-global f ] }
-        { 1 [ [ [ hexdump. flush ] with-global ] when* t ] }
-        { 2 [ [ [ hexdump. flush ] with-global ] when* t ] }
-        { 8 [ [ "close received, code: %d" sprintf print flush ] with-global t ] }
-        { 9 [ [ [ "ping received" print hexdump. flush ] with-global ] when* t ] }
-        [ 2drop t ]
-    } case ;
-]]
\ No newline at end of file