Syntax change.

This commit is contained in:
C. Guy Yarvin 2015-01-26 20:12:06 -08:00
parent 3431844d94
commit a441475a9a
2 changed files with 8 additions and 9 deletions

View File

@ -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 [~ ~]

View File

@ -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])