urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-12 10:29:01 +03:00
Code Issues Packages Projects Releases Wiki Activity

use ++hunt directly

Browse Source
This commit is contained in:
Anton Dyudin 2016-11-30 17:43:14 -08:00
parent 56da2fdb95
commit 03834e67f0
5 changed files with 10 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
arvo/ames.hoon
View File

@ -1385,10 +1385,10 @@
[out fox]
::
++ doze
%+ hunt:chrono:behn `(add now ~s32)
%^ hunt lth `(add now ~s32)
|- ^- (unit @da)
?~ zac.fox ~
;: hunt:chrono:behn
;: (cury hunt lth)
$(zac.fox l.zac.fox)
$(zac.fox r.zac.fox)
doze:(um p.n.zac.fox)
@ -1466,7 +1466,7 @@
++ doze :: doze:um:am
|- ^- (unit @da) :: wakeup time
?~ wab.weg ~
;: hunt:chrono:behn
;: (cury hunt lth)
$(wab.weg l.wab.weg)
$(wab.weg r.wab.weg)
doze:(ho p.n.wab.weg)

4
arvo/clay.hoon
View File

@ -1622,11 +1622,11 @@
::
$next ~
$many
%+ hunt:chrono:behn
%^ hunt lth
?. ?=($da -.p.q.rov) ~
?.((lth now p.p.q.rov) ~ [~ p.p.q.rov])
?. ?=($da -.q.q.rov) ~
?.((lth now p.q.q.rov) [~ now] [~ p.q.q.rov])
(hunt gth [~ now] [~ p.q.q.rov])
==
fun
+>.$

4
arvo/hoon.hoon
View File

@ -254,10 +254,10 @@
::
++ hunt :: first of units
|* {ord/$-({* *} ?) one/(unit) two/(unit)}
^- (unit ?(_(need one) _(need two)))
^- (unit ?(_,.+.one _,.+.two))
?~ one two
?~ two one
?:((ord u.one u.two) one two)
?:((ord ,.+.one ,.+.two) one two)
::
++ lift :: lift mold (fmap)
|* a/mold :: flipped

4
arvo/xmas.hoon
View File

@ -163,7 +163,7 @@
++ doze :: sleep until
|- ^- (unit @da)
?~ pol ~
;: hunt
;: (cury hunt lth)
$(pol l.pol)
$(pol r.pol)
~(to-wait et p.n.pol q.n.pol)
@ -332,7 +332,7 @@
++ to-wait
|- ^- (unit @da)
?~ sal.bah ~
;: hunt
;: (cury hunt lth)
$(sal.bah l.sal.bah)
$(sal.bah r.sal.bah)
wait:(to-rail p.n.sal.bah q.n.sal.bah)

4
arvo/zuse.hoon
View File

@ -4403,9 +4403,7 @@
--
++ behn ^?
|%
++ chrono
:- chrono:userlib
hunt=|=({a/(unit @da) b/(unit @da)} (hunt lth a b))
++ chrono chrono:userlib
--
++ clay ^?
|%