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

Only one fabrication bit.

Browse Source
This commit is contained in:
C. Guy Yarvin 2018-02-13 14:19:11 -08:00
parent d44f8e3f5f
commit 3d462e184a
3 changed files with 7 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
sys/arvo.hoon
View File

@ -1,7 +1,6 @@
:::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::: :::::: Postface ::::::
:::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::
!:
^%
=> +7
~> %slog.[0 leaf+"%arvo-assembly"]

36
sys/hoon.hoon
View File

@ -6973,42 +6973,20 @@
:: width is already ideal
::
boc
:: mac: matching crib
::
=/ mac
|- ^- crib
?: =(2 tow)
[%axil %cell]
[[%axil %noun] $(tow (dec tow))]
?: =(~ joy)
:: unconditional trivial
::
[%ktls boc trivial]
:: yum: matching hoon
::
=/ yum
=* yum
|- ^- hoon
?: =(2 tow)
[%bust %cell]
[[%bust %noun] $(tow (dec tow))]
?. fab
?: =(~ joy)
:: unconditional trivial
::
[%ktls boc trivial]
[%ktls boc [%wtcl [%fits yum fetch-wing] boc trivial]]
:: luz: subject edited to inject default
:: could be trivial
::
=/ luz/hoon
:+ %cnts
[[%& 1] ~]
:_ ~
:: correct but slow
:: [fetch-wing example:clear(mod any)]
[fetch-wing ?^(def u.def example:clear(mod mac))]
?: =(~ joy)
:: unconditional build
::
[%tsgr luz boc]
:: conditional build
::
[%tsgr [%wtcl [%fits yum fetch-wing] [%$ 1] luz] boc]
[%ktls boc [%wtcl [%fits yum fetch-wing] boc trivial]]
:: idealize topography (should be a smarter merge)
::
=. top ?:(=(1 tow) top |-(?:(=(1 tow) & [& $(tow (dec tow))])))

1
sys/vane/clay.hoon
View File

@ -9,7 +9,6 @@
:: worth noting that many of the clay-related structures are defined in zuse.
::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
!:
^%
|= pit/vase
=, clay