mirror of
https://github.com/urbit/shrub.git
synced 2024-12-15 12:43:31 +03:00
stubs out +keep in arvo interface
This commit is contained in:
parent
2d47b6a6e2
commit
3418ea13bf
@ -135,11 +135,6 @@
|
||||
=+ rig=(slym q.sew +<) :: activate vane
|
||||
~% %wink +>+> ~
|
||||
|%
|
||||
++ doze
|
||||
|= {now/@da hen/duct}
|
||||
^- (unit @da)
|
||||
~
|
||||
::
|
||||
++ slid
|
||||
|= {hed/mill tal/mill}
|
||||
^- mill
|
||||
@ -383,11 +378,6 @@
|
||||
{@ $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
|
||||
|= {lac/? ovo/ovum}
|
||||
~? &(!lac !=(%belt -.q.ovo)) [%unix -.q.ovo p.ovo]
|
||||
@ -477,7 +467,7 @@
|
||||
~& %hoon-come
|
||||
=^ rey +>+ (^come +<)
|
||||
[rey +>.$]
|
||||
++ keep |=(* (^keep ((hard {@da path}) +<))) :: 4
|
||||
++ keep |=(* ~) :: 4
|
||||
++ load |= {@ (list ovum) pane} :: 86
|
||||
^- {(list ovum) _+>}
|
||||
~& %hoon-load
|
||||
@ -527,11 +517,6 @@
|
||||
^+ [ova +>]
|
||||
(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
|
||||
|= {yen/@ ova/(list ovum) nyf/pane}
|
||||
^+ [ova +>]
|
||||
|
Loading…
Reference in New Issue
Block a user