urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-19 08:32:39 +03:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'urbit:develop' into dir-faces

Browse Source
This commit is contained in:
silnem2 2024-02-02 13:37:21 -08:00 committed by GitHub
commit 21661a8d1d
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
3 changed files with 26 additions and 17 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

@ -5654,27 +5654,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))
?: =(0 (end 0 (rsh 0 bone)))
%boon
%naxplanation
%plea
%= 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))
?: =(0 (end 0 (rsh 0 bone)))
%boon
%naxplanation
%plea
=/ msg =>([cue=cue arg=b] ~+((cue arg)))
;;(message [hed msg])
== == ==
=> [..message hed=hed ..cue arg=b]
~+ ;;(message [hed (cue arg)])
==
==
==
--
:: +scry: dereference namespace
::

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

@ -2715,7 +2715,11 @@
:- ~
=/ m ~(val by fan.p)
%+ gas:on-path *_fan.p
%+ turn (gulf 1 ~(wyt by fan.p))
%+ turn
^- (list @)
=/ wit ~(wyt by fan.p)
?: =(0 wit) ~
(gulf 1 wit)
|= a=@ud
[a (snag (dec a) m)]
==