urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-11-23 20:26:54 +03:00
Code Issues Packages Projects Releases Wiki Activity

clay: use single-weft wafts when possible

Browse Source
This commit is contained in:
Philip Monk 2022-10-23 14:52:32 -07:00
parent 096d54f9fc
commit 301158c40a
3 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
bin/solid.pill
View File

@ -1,3 +1,3 @@
version https://git-lfs.github.com/spec/v1
oid sha256:b604b45df0496baf94ac38145c3fc8d4fa9429ae02b49b33a7af4e32ad770db4
size 5896517
oid sha256:ef778204240c9a812f485d53339ff8e7a722ebeacd199a7172be8ce796edc514
size 7296213

12
pkg/arvo/sys/lull.hoon
View File

@ -1033,11 +1033,13 @@
++ cord-to-waft
|= =cord
^- waft
:- [%1 ~]
%- sy ^- (list weft)
%+ turn (rash cord (star (ifix [gay gay] tall:vast)))
|= =hoon
!<(weft (slap !>(~) hoon))
=/ wefts=(list weft)
%+ turn (rash cord (star (ifix [gay gay] tall:vast)))
|= =hoon
!<(weft (slap !>(~) hoon))
?: ?=([* ~] wefts)
i.wefts
[[%1 ~] (sy wefts)]
::
++ waft-to-wefts
|= kal=waft

2
pkg/arvo/sys/vane/clay.hoon
View File

@ -1770,7 +1770,7 @@
%+ roll ~(tap in kel)
|: [weft=*weft wic=wic.dom]
(~(put by wic) weft yoki)
=? ..park !?=(%base syd) (emit hen %pass /park-wick %c %wick ~)
=? ..park !?=(%base syd) (emit hen %pass /park-stuck-wick %c %wick ~)
%- (slog leaf+"clay: wait-for-kelvin, {<[need=zuse/zuse have=kel]>}" ~)
..park
=. wic.dom (~(del by wic.dom) zuse+zuse)