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

Now using =? where appropriate.

Browse Source
This commit is contained in:
Fang 2017-10-10 16:44:37 +02:00
parent 3248b0437d
commit 4d7a4b94fe
2 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
app/talk-agent.hoon
View File

@ -1108,9 +1108,7 @@
=- `[%tan rose+[", " `~]^- leaf+~(pr-full pr pon) ~]
=< (murn (sort ~(tap by gop) aor) .)
|= {a/ship b/presence c/human} ^- (unit tank)
=. c
?. =(han.c `(scot %p a)) c
[~ tru.c]
=? c =(han.c `(scot %p a)) [~ tru.c]
?- b
$gone ~
$idle `leaf+:(weld "idle " (scow %p a) " " (trip (fall han.c '')))
@ -1771,8 +1769,8 @@
|- ^- circle
=+ lef=`(unit circle)`ar-best(lix l.lix)
=+ rit=`(unit circle)`ar-best(lix r.lix)
=. n.lix ?~(lef n.lix (~(pr-best pr n.lix) u.lef))
=. n.lix ?~(rit n.lix (~(pr-best pr n.lix) u.rit))
=? n.lix ?=(^ lef) (~(pr-best pr n.lix) u.lef)
=? n.lix ?=(^ rit) (~(pr-best pr n.lix) u.rit)
n.lix
::
++ ar-deaf ::< except for self

8
app/talk-guardian.hoon
View File

@ -332,8 +332,7 @@
%- ~(rep in cis)
|= {c/circle m/(jug ship naem)}
(~(put ju m) hos.c nom.c)
=. ..ta-action ::TODO =?
?. (~(has by cic) our.bol) ..ta-action
=? ..ta-action (~(has by cic) our.bol)
%- ~(rep in (~(get ju cic) our.bol))
|= {n/naem _ta}
(affect n %status [our.bol n] our.bol dif)
@ -368,8 +367,7 @@
::
|= {nom/naem mes/(unit cord)}
^+ ..ta-action
=. ..ta-action ::TODO =?
?~ mes ..ta-action
=? ..ta-action ?=(^ mes)
%+ action-phrase
[[our.bol nom] ~ ~]
[%lin | u.mes]~
@ -1273,7 +1271,7 @@
:: for every serial, add %pending state.
%+ roll ses
|= {s/serial o/_outbox}
=. o ?~(o outbox o) ::TODO =?
=? o ?=($~ o) outbox
=+ t=(fall (~(get by o) s) *tracking)
%+ ~(put by o) s
(~(put by t) cir %pending)