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

Merge commit 'b3724' into cc-merge

Browse Source
This commit is contained in:
C. Guy Yarvin 2016-11-13 17:54:01 -08:00
commit 092f795702
1 changed files with 9 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lib/drum.hoon
View File

@ -442,7 +442,7 @@
++ se-tame :: switch connection ++ se-tame :: switch connection
|= gyl/gill:^gall |= gyl/gill:^gall
^+ ta ^+ ta
~(. ta [& gyl] (need (~(got by fug) gyl))) ~(. ta gyl (need (~(got by fug) gyl)))
:: ::
++ se-diff :: receive results ++ se-diff :: receive results
|= {gyl/gill:^gall fec/sole-effect} |= {gyl/gill:^gall fec/sole-effect}
@ -450,17 +450,9 @@
ta-abet:(ta-fec:(se-tame gyl) fec) ta-abet:(ta-fec:(se-tame gyl) fec)
:: ::
++ ta :: per target ++ ta :: per target
|_ $: $: liv/? :: don't delete |_ {gyl/gill:^gall target} :: app and state
gyl/gill:^gall :: target app
== ::
target :: target state
== ::
++ ta-abet :: resolve ++ ta-abet :: resolve
^+ ..ta ^+ ..ta
?. liv
?: (~(has in (deft-fish our.hid)) gyl)
(se-blit qit+~)
(se-nuke gyl)
..ta(fug (~(put by fug) gyl ``target`+<+)) ..ta(fug (~(put by fug) gyl ``target`+<+))
:: ::
++ ta-poke |=(a/pear +>(..ta (se-poke gyl a))) :: poke gyl ++ ta-poke |=(a/pear +>(..ta (se-poke gyl a))) :: poke gyl
@ -531,9 +523,11 @@
$a +>(pos.inp 0) $a +>(pos.inp 0)
$b (ta-aro %l) $b (ta-aro %l)
$c ta-bel $c ta-bel
$d ?: &(=(0 pos.inp) =(0 (lent buf.say.inp))) $d ?^ buf.say.inp
+>(liv |) ta-del
ta-del ?: (~(has in (deft-fish our.hid)) gyl)
+>(..ta (se-blit qit+~)) :: quit pier
+>(..ta (se-klin gyl)) :: unlink app
$e +>(pos.inp (lent buf.say.inp)) $e +>(pos.inp (lent buf.say.inp))
$f (ta-aro %r) $f (ta-aro %r)
$g ?~ ris ta-bel $g ?~ ris ta-bel
@ -572,7 +566,7 @@
++ ta-del :: hear delete ++ ta-del :: hear delete
^+ . ^+ .
?: =((lent buf.say.inp) pos.inp) ?: =((lent buf.say.inp) pos.inp)
.(..ta (se-blit %bel ~)) ta-bel
(ta-hom %del pos.inp) (ta-hom %del pos.inp)
:: ::
++ ta-erl :: hear local error ++ ta-erl :: hear local error