• branch=trunk inherited from [dc67bca1f3]
• sym-trunk inherited from [dc67bca1f3]

Modified user/crc/irc.retro from [3a18197dc2536ed0] to [8ea6eb809a9906c8].

@@ -14,25 +14,23 @@
 ( line      Read 1 line from server                           )
 ( skim      Read from server, pausing after each line. If     )
 (           esc is hit, stop, otherwise continue.             )
 ( ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
 
-&net open
-
 vocab irc
 ((
   vocab private
   ((
     ( Data ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
     create crlf 10 , 13 , 0 ,
     2 elements socket channel
 
     ( Code ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
-    : send    ( $-  ) @socket net.send drop ;
+    : send    ( $-  ) @socket \net.send drop ;
     : sendn   ( $-  ) send crlf send ;
     : token   ( "-a ) 32 accept tib ;
-    : read    (  -c ) @socket net.recv ;
+    : read    (  -c ) @socket \net.recv ;
     : pong    (  -  ) s" PONG :kornbluth.freenode.net" sendn ;
   ))
 
   {{
     : r     (  -  )
@@ -50,11 +48,11 @@
   ---reveal---
     : say   ( "-  ) to msg pong ;
   }}
 
   : /server ( "-  )
-    token 6667 net.socket dup !socket net.connect drop ;
+    token 6667 \net.socket dup !socket \net.connect drop ;
   : /nick   ( "-  )  s" NICK " send token sendn ;
   : /join   ( "-  )  s" JOIN " send token sendn ;
   {{
     : who   ( "-  )  s" USER " send token send ;
     : ident (  -  )  s"  8 *  : Charles Childers" sendn ;
@@ -66,8 +64,8 @@
 
 
 ( Make Connection ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
 /server kornbluth.freenode.net
 /nick rx-irc
-/user crc
+/user crc_rxirc
 /join #retro
 in #retro