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

Merge branch 'next/kelvin/411' into yu/fix-ames-migration

Browse Source
This commit is contained in:
yosoyubik 2024-02-05 12:59:09 +01:00
commit 57ee384925
2 changed files with 21 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkg/arvo/sys/hoon.hoon
View File

@ -1795,6 +1795,12 @@
[b ~ ~] [b ~ ~]
bal(l.a $(a l.a)) bal(l.a $(a l.a))
:: ::
++ run :: apply gate to values
|* b=gate
|-
?~ a a
[n=(b n.a) l=$(a l.a) r=$(a r.a)]
::
++ tap :: adds list to end ++ tap :: adds list to end
=+ b=`(list _?>(?=(^ a) n.a))`~ =+ b=`(list _?>(?=(^ a) n.a))`~
|- ^+ b |- ^+ b

31
pkg/arvo/sys/vane/ames.hoon
View File

@ -5652,27 +5652,26 @@
keens [keens.s ~] keens [keens.s ~]
:: ::
snd.+ snd.+
%- malt %- ~(urn by snd.+.s)
%+ turn
~(tap by snd.+.s)
|= [=bone m=message-pump-state-17] |= [=bone m=message-pump-state-17]
:- bone =/ hed
?. =(1 (end 0 bone))
%plea
?: =(0 (end 0 (rsh 0 bone)))
%boon
%naxplanation
%= m %= m
unsent-messages unsent-messages
%- ~(gas to *(qeu message)) =* um unsent-messages.m
%+ turn => [..message hed=hed um=um ..cue]
~(tap to unsent-messages.m) ~+ %- ~(run to um)
|= b=message-blob |= b=message-blob
^- message ^- message
=/ hed => [..message hed=hed ..cue arg=b]
?. =(1 (end 0 bone)) ~+ ;;(message [hed (cue arg)])
%plea ==
?: =(0 (end 0 (rsh 0 bone))) ==
%boon ==
%naxplanation
=/ msg =>([cue=cue arg=b] ~+((cue arg)))
;;(message [hed msg])
== == ==
-- --
:: +scry: dereference namespace :: +scry: dereference namespace
:: ::