ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-13 08:38:43 +03:00
Code Issues Packages Projects Releases Wiki Activity

Various fixes and improvements.

Browse Source
This commit is contained in:
C. Guy Yarvin 2017-12-08 20:49:19 -08:00
parent 6484ff2b81
commit 9f3e73a88c
1 changed files with 16 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
sys/hoon.hoon
View File

@ -5680,7 +5680,7 @@
:: complete composition
::
$(fol c.fol, bus one)
::
::
:: 8; introduction
::
{$8 b/* c/*}
@ -5711,7 +5711,7 @@
%+ require
:: retrieve formula
::
(fragment b.fol bus)
(fragment b.fol one)
:: continue
::
|=(noun ^$(bus one, fol +<))
@ -6552,9 +6552,9 @@
~$ %ut-ersatz-make
ersatz
++ clam
~& [%clam-model mod]
=- ~& [%clam-product -]
-
:: ~& [%clam-model mod]
:: =- ~& [%clam-product -]
:: -
~$ %ut-factory-call
~+
~$ %ut-factory-make
@ -6582,7 +6582,7 @@
$(mod q.mod)
::
{$herb *}
=+ cys=~(boil ap p.mod)
=+ cys=~(boil aq p.mod)
?: ?=($herb -.cys)
(home [%tsgl [%limb %$] p.mod])
$(mod cys)
@ -6675,7 +6675,7 @@
{$herb *}
%- decorate
=. doc ~
=+ cys=~(boil ap p.mod)
=+ cys=~(boil aq p.mod)
?: ?=($herb -.cys)
(home [%tsgl [%limb %$] p.mod])
ersatz(mod cys)
@ -6696,6 +6696,11 @@
^- hoon
:+ %sgbc
%run-mold
=- :: for basic molds that don't need the subject,
:: clear it so constants fold better
::
?. ?=(?($axil $leaf) -.mod) -
[%tsgr [%rock %n 0] -]
:^ %brts ~^~
[%base %noun]
:+ %sgbc
@ -8221,6 +8226,9 @@
?: ?=($| -.u.jon)
?: fab
pro
:: ~| %musk-blocked
~_ (dunk '%musk-blocked-type')
~| [%musk-blocked-gene gen]
~| [%musk-blocked-mask mask.bus]
~| [%musk-blocked-formula q.pro]
!!
@ -8984,7 +8992,7 @@
|-(?~(p.gen sut $(p.gen t.p.gen, sut ^$(gen i.p.gen))))
?: ?&(!how ?=({$wtbr *} gen))
|-(?~(p.gen sut $(p.gen t.p.gen, sut ^$(gen i.p.gen))))
=+ neg=~(open ap gen)
=+ neg=?:(fab ~(open ap gen) ~(open aq gen))
?:(=(neg gen) sut $(gen neg))
::
++ mint