ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-05 13:55:54 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fixed the talk command mark to be cool with recent changes to the structures.

Browse Source
This commit is contained in:
Fang 2017-07-06 19:59:23 -07:00
parent 8ceb9312d1
commit 02502d758e
1 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
mar/talk/command.hoon
View File

@ -67,10 +67,7 @@
::
++ audi
^- $-(json (unit audience))
(op parn memb)
::
++ memb (ot [envelope+lope delivery+(ci (soft delivery) so) ~])
++ lope (ot [visible+bo sender+(mu (su parn)) ~])
(as (su parn))
::
++ parn
^- $-(nail (like partner))
@ -81,17 +78,19 @@
::
++ speech-or-eval $?(speech {$eval p/@t} {$mor ses/(list speech-or-eval)})
++ eval
|= a/(trel @da bouquet speech-or-eval)
|= a/(pair @da speech-or-eval)
^- statement
%= a
r
q
|- ^- speech
?: ?=($mor -.r.a)
[%mor (turn ses.r.a |=(b/speech-or-eval ^$(r.a b)))]
?. ?=($eval -.r.a) r.a
=- [%fat tank+- %exp p.r.a]
?: ?=($mor -.q.a)
::[%mor (turn ses.q.a |=(b/speech-or-eval ^$(q.a b)))]
~& %todo-talk-command-mark ::TODO fix
*speech
?. ?=($eval -.q.a) q.a
=- [%exp p.q.a -]
=+ pax=[&1:% &2:% (scot %da p.a) |3:%]
p:(mule |.([(sell (slap !>(..zuse) (rain pax p.r.a)))]~))
p:(mule |.([(sell (slap !>(..zuse) (rain pax p.q.a)))]~))
==
::
++ stam