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

rename speeech to something more informative

Browse Source
This commit is contained in:
Anton Dyudin 2015-12-02 11:06:38 -08:00
parent d1ac676653
commit 9a587bdae8
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
mar/talk/command.hoon
View File

@ -76,13 +76,13 @@
%+ sear (soft passport)
;~((glue fas) sym urs:ab) :: XX [a-z0-9_]{1,15}
::
++ speeech ?(speech [%eval p=@t] [%mor p=(list speeech)])
++ speech-or-eval ?(speech [%eval p=@t] [%mor p=(list speech-or-eval)])
++ eval
|= a=(trel ,@da bouquet speeech) ^- statement
|= a=(trel ,@da bouquet speech-or-eval) ^- statement
%= a r ^- speech
|-
?: ?=(%mor -.r.a)
[%mor (turn p.r.a |=(b=speeech ^$(r.a b)))]
[%mor (turn p.r.a |=(b=speech-or-eval ^$(r.a b)))]
?. ?=(%eval -.r.a) r.a
=- [%fat tank/- %exp p.r.a]
=+ pax=[&1:% &2:% (scot %da p.a) |3:%]
@ -95,7 +95,7 @@
(ot date/di bouquet/(as (ar so)) speech/spec ~)
::
++ spec
%+ ke *speeech |.
%+ ke *speech-or-eval |.
%- of
:~ lin/(ot say/bo txt/so ~)
url/(su aurf:urlp)