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

stubs out +keep in arvo interface

Browse Source
This commit is contained in:
Joe Bryan 2018-11-26 16:38:37 -05:00
parent 2d47b6a6e2
commit 3418ea13bf
1 changed files with 1 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
sys/arvo.hoon
View File

@ -135,11 +135,6 @@
=+ rig=(slym q.sew +<) :: activate vane =+ rig=(slym q.sew +<) :: activate vane
~% %wink +>+> ~ ~% %wink +>+> ~
|% |%
++ doze
|= {now/@da hen/duct}
^- (unit @da)
~
::
++ slid ++ slid
|= {hed/mill tal/mill} |= {hed/mill tal/mill}
^- mill ^- mill
@ -383,11 +378,6 @@
{@ $behn *} %b {@ $behn *} %b
== ==
:: ::
++ doos :: sleep until
|= hap/path ^- (unit @da)
=+ lal=(dint hap)
(doze:(wink:(vent lal vil bud p.niz (dink lal)) now 0 beck) now [hap ~])
::
++ hurl :: start loop ++ hurl :: start loop
|= {lac/? ovo/ovum} |= {lac/? ovo/ovum}
~? &(!lac !=(%belt -.q.ovo)) [%unix -.q.ovo p.ovo] ~? &(!lac !=(%belt -.q.ovo)) [%unix -.q.ovo p.ovo]
@ -477,7 +467,7 @@
~& %hoon-come ~& %hoon-come
=^ rey +>+ (^come +<) =^ rey +>+ (^come +<)
[rey +>.$] [rey +>.$]
++ keep |=(* (^keep ((hard {@da path}) +<))) :: 4 ++ keep |=(* ~) :: 4
++ load |= {@ (list ovum) pane} :: 86 ++ load |= {@ (list ovum) pane} :: 86
^- {(list ovum) _+>} ^- {(list ovum) _+>}
~& %hoon-load ~& %hoon-load
@ -527,11 +517,6 @@
^+ [ova +>] ^+ [ova +>]
(load yen ova (turn nyf |=({a/@tas b/vise} [a (slim b)]))) (load yen ova (turn nyf |=({a/@tas b/vise} [a (slim b)])))
:: ::
++ keep :: wakeup delay
|= {now/@da hap/path}
=> .(+< ((hard {now/@da hap/path}) +<))
(~(doos (is vil eny bud niz) now) hap)
::
++ load :: load compatible ++ load :: load compatible
|= {yen/@ ova/(list ovum) nyf/pane} |= {yen/@ ova/(list ovum) nyf/pane}
^+ [ova +>] ^+ [ova +>]