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

Fix Clay %next revision

Browse Source 
adapted from commit 852997ac16a751c69775489c61ae8e5b650c9a50
This commit is contained in:
Ted Blackman 2018-01-03 16:37:44 -08:00
parent 6169a6311a
commit 845696a3a6
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
sys/vane/clay.hoon
View File

@ -1683,15 +1683,16 @@
?~ u.ver
$(xiq t.xiq, ..wake (blub-all q.i.xiq ~))
$(xiq t.xiq, xaq [i.xiq(q.p u.ver) xaq])
=+ var=(aver mun(q [%ud let.dom]))
=/ muc mun(q [%ud let.dom]) :: current mood
=+ var=(aver muc)
?~ var
~& [%oh-noes mood=mun letdom=let.dom]
~& [%oh-noes old=mun mood=muc letdom=let.dom]
$(xiq t.xiq)
?~ u.var
$(xiq t.xiq, ..wake (blab-all q.i.xiq mun %& %null [%atom %n ~] ~))
$(xiq t.xiq, ..wake (blab-all q.i.xiq muc %& %null [%atom %n ~] ~))
?: (equivalent-data:ze u.q.p.i.xiq u.u.var)
$(xiq t.xiq, xaq [i.xiq xaq])
$(xiq t.xiq, ..wake (blab-all q.i.xiq mun u.u.var))
$(xiq t.xiq, ..wake (blab-all q.i.xiq muc u.u.var))
::
$many
=+ mot=`moat`q.p.i.xiq