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

27
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
%= m
unsent-messages
%- ~(gas to *(qeu message))
%+ turn
~(tap to unsent-messages.m)
|= b=message-blob
^- message
=/ hed =/ hed
?. =(1 (end 0 bone)) ?. =(1 (end 0 bone))
%plea %plea
?: =(0 (end 0 (rsh 0 bone))) ?: =(0 (end 0 (rsh 0 bone)))
%boon %boon
%naxplanation %naxplanation
=/ msg =>([cue=cue arg=b] ~+((cue arg))) %= m
;;(message [hed msg]) unsent-messages
== == == =* um unsent-messages.m
=> [..message hed=hed um=um ..cue]
~+ %- ~(run to um)
|= b=message-blob
^- message
=> [..message hed=hed ..cue arg=b]
~+ ;;(message [hed (cue arg)])
==
==
==
-- --
:: +scry: dereference namespace :: +scry: dereference namespace
:: ::