From a441475a9afea911318af4b0ad821ec4a6079b44 Mon Sep 17 00:00:00 2001
From: "C. Guy Yarvin" <cgyarvin@gmail.com>
Date: Mon, 26 Jan 2015 20:12:06 -0800
Subject: [PATCH] Syntax change.

---
 main/app/rodeo/core.hook | 9 +++++----
 main/app/talk/core.hook  | 8 +++-----
 2 files changed, 8 insertions(+), 9 deletions(-)

diff --git a/main/app/rodeo/core.hook b/main/app/rodeo/core.hook
index 37b7d0eeb3..c70bfa4912 100644
--- a/main/app/rodeo/core.hook
+++ b/main/app/rodeo/core.hook
@@ -2,7 +2,7 @@
 ::::  /hook/core/rodeo/app
   ::
 /?  314
-/-  *rodeo
+/-  *rodeo, *twitter
 /+  rodeo
 ::
 ::::
@@ -141,7 +141,7 @@
   ++  ra-apply                                          ::  apply command
     |=  [her=ship cod=command]
     ^+  +>
-    ::  ~&  [%ra-apply cod]
+    ~&  [%ra-apply cod]
     ?-    -.cod
         %design
       ?.  =(her our.hid)
@@ -267,7 +267,8 @@
       %|  ?.  pub  +>
           ?-    -.p.tay
               %twitter
-            !!
+            ~&  [%ra-conduct tip]
+            +>.$
     ==    ==
   ::
   ++  ra-record                                         ::  add to story
@@ -529,7 +530,7 @@
     ::
     ++  pa-refresh                                      ::  update stream
       |=  [num=@ud gam=telegram]
-      ::  ~&  [%pa-refresh num gam]
+      ~&  [%pa-refresh man num gam guests]
       =+  ^=  moy
           |-  ^-  (pair (list bone) (list move))
           ?~  guests  [~ ~]
diff --git a/main/app/talk/core.hook b/main/app/talk/core.hook
index 35b7ef0cf6..89bb78f5f5 100644
--- a/main/app/talk/core.hook
+++ b/main/app/talk/core.hook
@@ -166,10 +166,8 @@
             ship
             ;~(pose ;~(pfix fas urs:ab) (easy (main our)))
           ==
-        ;~  pfix  ket
-          ;~  pose
-            ;~(pfix pat (stag %twitter urs:ab))
-          ==
+        ;~  pose
+          ;~(pfix pat (stag %twitter urs:ab))
         ==
       ::
       ++  staz                                          ::  partner set
@@ -245,7 +243,7 @@
                 ?:  =((main p.p.i.tuo) q.p.i.tuo)
                   sip
                 :(welp sip "/" (trip q.p.i.tuo))
-            %|  ['^' '@' (trip p.p.i.tuo)] 
+            %|  ['@' (trip p.p.i.tuo)] 
           ==
       ?~  ted  ind
       (welp ind `tape`[',' ' ' ted])