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

kiln: move to %sing from %next

Browse Source
This commit is contained in:
raghu 2021-06-21 20:44:29 -04:00
parent a04b318d2d
commit a9f3be003e
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
pkg/arvo/lib/hood/kiln.hoon
View File

@ -741,13 +741,13 @@
?^ ver.fs ?^ ver.fs
:: static source, don't need to track :: static source, don't need to track
~ ~
=/ bec=beak (realize-fuse-source fs) =/ bec=beak (realize-fuse-source fs &)
?> =(who.fs p.bec) ?> =(who.fs p.bec)
?> =(des.fs q.bec) ?> =(des.fs q.bec)
=/ hax=@ud (mug [kf (~(got by hxs) syd)]) =/ hax=@ud (mug [kf (~(got by hxs) syd)])
=/ wir=wire =/ wir=wire
/kiln/fuse-request/[syd]/(scot %p p.bec)/[q.bec]/(scot %ud hax) /kiln/fuse-request/[syd]/(scot %p p.bec)/[q.bec]/(scot %ud hax)
=/ rav=rave [%next %w r.bec /] =/ rav=rave [%sing %w r.bec /]
=/ rif=riff [q.bec `rav] =/ rif=riff [q.bec `rav]
`[%pass wir %arvo %c [%warp who.fs rif]] `[%pass wir %arvo %c [%warp who.fs rif]]
:: No need to keep state if all the sources are static :: No need to keep state if all the sources are static
@ -757,12 +757,12 @@
:: ::
++ send-fuse ++ send-fuse
^+ ..abet ^+ ..abet
=/ bas=beak (realize-fuse-source bas.kf) =/ bas=beak (realize-fuse-source bas.kf |)
=/ con=(list [beak germ]) =/ con=(list [beak germ])
%+ turn %+ turn
con.kf con.kf
|= [fs=fuse-source g=germ] |= [fs=fuse-source g=germ]
[(realize-fuse-source fs) g] [(realize-fuse-source fs |) g]
%- blab %- blab
[%pass /kiln/fuse/[syd] %arvo %c [%fuse syd bas con]]~ [%pass /kiln/fuse/[syd] %arvo %c [%fuse syd bas con]]~
:: ::
@ -796,22 +796,25 @@
:: fully realized beak. :: fully realized beak.
:: ::
++ realize-fuse-source ++ realize-fuse-source
|= fs=fuse-source |= [fs=fuse-source incr=flag]
^- beak ^- beak
:+ who.fs :+ who.fs
des.fs des.fs
?@ ver.fs ?@ ver.fs
(realize-case [who.fs des.fs]) (realize-case [who.fs des.fs incr])
`case`ver.fs `case`ver.fs
:: ::
++ realize-case ++ realize-case
|= [who=ship des=desk] |= [who=ship des=desk incr=flag]
^- case ^- case
=/ let=(unit @ud) (~(get by mox) [who des]) =/ let=(unit @ud) (~(get by mox) [who des])
^- case ^- case
?~ let ?~ let
da+now da+now
ud+u.let :- %ud
?: incr
+(u.let)
u.let
-- --
:: ::
++ auto ++ auto