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 ~ ~]
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
=+ b=`(list _?>(?=(^ a) n.a))`~
|- ^+ b

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

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