ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-15 10:02:47 +03:00
Code Issues Packages Projects Releases Wiki Activity

Syntax change.

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
main/app/rodeo/core.hook
View File

@ -2,7 +2,7 @@
:::: /hook/core/rodeo/app :::: /hook/core/rodeo/app
:: ::
/? 314 /? 314
/- *rodeo /- *rodeo, *twitter
/+ rodeo /+ rodeo
:: ::
:::: ::::
@ -141,7 +141,7 @@
++ ra-apply :: apply command ++ ra-apply :: apply command
|= [her=ship cod=command] |= [her=ship cod=command]
^+ +> ^+ +>
:: ~& [%ra-apply cod] ~& [%ra-apply cod]
?- -.cod ?- -.cod
%design %design
?. =(her our.hid) ?. =(her our.hid)
@ -267,7 +267,8 @@
%| ?. pub +> %| ?. pub +>
?- -.p.tay ?- -.p.tay
%twitter %twitter
!! ~& [%ra-conduct tip]
+>.$
== == == ==
:: ::
++ ra-record :: add to story ++ ra-record :: add to story
@ -529,7 +530,7 @@
:: ::
++ pa-refresh :: update stream ++ pa-refresh :: update stream
|= [num=@ud gam=telegram] |= [num=@ud gam=telegram]
:: ~& [%pa-refresh num gam] ~& [%pa-refresh man num gam guests]
=+ ^= moy =+ ^= moy
|- ^- (pair (list bone) (list move)) |- ^- (pair (list bone) (list move))
?~ guests [~ ~] ?~ guests [~ ~]

4
main/app/talk/core.hook
View File

@ -166,11 +166,9 @@
ship ship
;~(pose ;~(pfix fas urs:ab) (easy (main our))) ;~(pose ;~(pfix fas urs:ab) (easy (main our)))
== ==
;~ pfix ket
;~ pose ;~ pose
;~(pfix pat (stag %twitter urs:ab)) ;~(pfix pat (stag %twitter urs:ab))
== ==
==
:: ::
++ staz :: partner set ++ staz :: partner set
%+ cook %+ cook
@ -245,7 +243,7 @@
?: =((main p.p.i.tuo) q.p.i.tuo) ?: =((main p.p.i.tuo) q.p.i.tuo)
sip sip
:(welp sip "/" (trip q.p.i.tuo)) :(welp sip "/" (trip q.p.i.tuo))
%| ['^' '@' (trip p.p.i.tuo)] %| ['@' (trip p.p.i.tuo)]
== ==
?~ ted ind ?~ ted ind
(welp ind `tape`[',' ' ' ted]) (welp ind `tape`[',' ' ' ted])