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

adapter

Browse Source
This commit is contained in:
Anton Dyudin 2016-09-19 14:41:37 -07:00
parent d6bb4e234d
commit 401736877f
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
arvo/eyre.hoon
View File

@ -2066,9 +2066,11 @@
=+ driv-5=_=>(*driv [cor=p req=req.q]) =+ driv-5=_=>(*driv [cor=p req=req.q])
=+ bolo-5={$5 _=+(*bolo-6 +.-(sec (~(run by sec.-) driv-5)))} =+ bolo-5={$5 _=+(*bolo-6 +.-(sec (~(run by sec.-) driv-5)))}
=+ bolo-4={$4 _%*(+ *bolo-5 lyv *(map duct ^))} =+ bolo-4={$4 _%*(+ *bolo-5 lyv *(map duct ^))}
=/ bolo _%*(. *bolo lyv **)
::|= * %. (bolo +<)
|= old/?(bolo bolo-6 bolo-5 bolo-4) |= old/?(bolo bolo-6 bolo-5 bolo-4)
?- -.old ?- -.old
$7 ..^$(+>- old) $7 ..^$(+>- old(lyv ~))
$6 $(old [%7 +.old(lyv ~, wix ~)]) $6 $(old [%7 +.old(lyv ~, wix ~)])
$5 $(old [%6 +.old(sec (~(run by sec.old) |=(driv-5 [cor & req])))]) $5 $(old [%6 +.old(sec (~(run by sec.old) |=(driv-5 [cor & req])))])
$4 $(old [%5 +.old(lyv ~)]) :: minor leak $4 $(old [%5 +.old(lyv ~)]) :: minor leak