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

Restore the dontjo +prep arm

Browse Source
This commit is contained in:
Elliot Glaysher 2018-06-04 11:23:12 -07:00
parent 5cb4cbba37
commit dd20225625
1 changed files with 17 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
app/dontjo.hoon
View File

@ -1756,27 +1756,23 @@
--
::
++ prep
|= old=*
^- [(list move) _..prep]
[~ ..prep]
:: =+ session-4==+(*session _-(lib *(list), sur *(list)))
:: =+ session-1==+(*session-4 _-(poy *(unit)))
:: =+ session-0==+(*session-1 _[_say syd=desk * _|2.-])
:: :: ,_`..prep
:: =+ ^= hoze
:: $% {$0 p/(map bone session-0)}
:: {$1 p/(map bone session-1)}
:: {$2 p/(map bone session-1)}
:: {$3 p/(map bone session-4)}
:: {$4 p/@ q/(map bone session-4)}
:: ==
:: |= old/(unit ?(house hoze)) ^+ [~ ..prep]
:: ?~ old `..prep
:: ?+ -.u.old !!
:: $4 $(-.u.old %5, q.u.old (~(run by q.u.old) |=(session-4 +<(sur ~, lib ~))))
:: $5 `..prep(+<+ u.old)
:: ==
=+ session-4==+(*session _-(lib *(list), sur *(list)))
=+ session-1==+(*session-4 _-(poy *(unit)))
=+ session-0==+(*session-1 _[_say syd=desk * _|2.-])
:: ,_`..prep
=+ ^= hoze
$% {$0 p/(map bone session-0)}
{$1 p/(map bone session-1)}
{$2 p/(map bone session-1)}
{$3 p/(map bone session-4)}
{$4 p/@ q/(map bone session-4)}
==
|= old/(unit ?(house hoze)) ^+ [~ ..prep]
?~ old `..prep
?+ -.u.old !!
$4 $(-.u.old %5, q.u.old (~(run by q.u.old) |=(session-4 +<(sur ~, lib ~))))
$5 `..prep(+<+ u.old)
==
::
:: pattern: ++ foo |=(data he-abet:(~(he-foo he (~(got by hoc) ost)) data))
++ arm (arm-session ~ (~(got by hoc) ost.hid))