ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-09-21 23:47:35 +03:00
Code Issues Packages Projects Releases Wiki Activity

Added ++push-{mark}

Browse Source
This commit is contained in:
Anton Dyudin 2015-01-22 13:06:03 -08:00
parent f474850521
commit adf7d40e14
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
arvo/gall.hoon
View File

@ -1189,7 +1189,7 @@
::
%mess
=+ ^- cog=term
=- |- ?~ goz %poke
=- |- ?~ goz ?:((warm %pock) %pock %poke)
?: (warm i.goz) i.goz
$(goz t.goz)
^- goz=(list term)
@ -1252,14 +1252,17 @@
(xeno [q.kon imp] %feel ~)
::
%take
?: &(?=([%g %rush @ *] q.q.kon) (warm %posh))
?: ?& ?=([%g %rush @ *] q.q.kon)
|((warm %posh) (warm (cat 3 'posh-' &3.q.q.kon)))
==
?> ?=(^ huv.sat)
=+ gil=(spec (slot 7 q.kon))
=+ [goc gil]=[(cat 3 'posh-' &3.q.q.kon) (spec (slot 7 q.kon))]
=. - ?:((warm goc) [goc (slot 3 gil)] [%posh gil])
=+ sam=:(slop [[%atom %ud] ost] !>(p.kon) gil)
%+ ford /s/pour
:+ %dude leaf/"pouring"
:+ %dude (skol p.gil)
[%call (harm %posh (conf (core u.huv.sat))) (cove %$ sam)]
[%call (harm goc (conf (core u.huv.sat))) (cove %$ sam)]
?: (warm %purr)
?> ?=(^ huv.sat)
=+ sam=:(slop [[%atom %ud] ost] !>(p.kon) !>(p.q.kon) q.kon)