urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-05 19:46:50 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fix |mass

Browse Source
This commit is contained in:
Elliot Glaysher 2018-08-15 10:47:15 -07:00
parent f09da3f962
commit 4a081f0fbd
2 changed files with 7 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
sys/vane/dill.hoon
View File

@ -20,7 +20,6 @@
e/(unit mass) ::
f/(unit mass) ::
g/(unit mass) ::
t/(unit mass) ::
== ::
== ::
++ axon :: dill per duct
@ -60,7 +59,7 @@
{$deal p/sock q/cush:gall} ::
== ::
++ note :: out request $->
$? {?($a $b $c $e $f $g $t) $wegh $~} ::
$? {?($a $b $c $e $f $g) $wegh $~} ::
$% {$a note-ames} ::
{$c note-clay} ::
{$d note-dill} ::
@ -85,7 +84,7 @@
{$unto p/cuft:gall} ::
== ::
++ sign :: in result $<-
$? {?($a $b $c $e $f $g $t) $mass p/mass} ::
$? {?($a $b $c $e $f $g) $mass p/mass} ::
$% {$a sign-ames} ::
{$c sign-clay} ::
{$d sign-dill} ::
@ -260,7 +259,6 @@
[hen %pass /heft/eyre %e %wegh ~]
[hen %pass /heft/ford %f %wegh ~]
[hen %pass /heft/gall %g %wegh ~]
[hen %pass /heft/turbo %t %wegh ~]
moz
==
==
@ -364,7 +362,7 @@
|= sih/sign
^+ +>
?- sih
{?($a $b $c $e $f $g $t) $mass *}
{?($a $b $c $e $f $g) $mass *}
(wegt -.sih p.sih)
::
{$a $nice *}
@ -422,7 +420,7 @@
==
::
++ wegt
|= {lal/?($a $b $c $e $f $g $t) mas/mass}
|= {lal/?($a $b $c $e $f $g) mas/mass}
^+ +>
=. hef.all
?- lal
@ -432,7 +430,6 @@
$e ~?(?=(^ e.hef.all) %double-mass-e hef.all(e `mas))
$f ~?(?=(^ f.hef.all) %double-mass-f hef.all(f `mas))
$g ~?(?=(^ g.hef.all) %double-mass-g hef.all(g `mas))
$t ~?(?=(^ t.hef.all) %double-mass-t hef.all(t `mas))
==
?. ?& ?=(^ a.hef.all)
?=(^ b.hef.all)
@ -440,13 +437,12 @@
?=(^ e.hef.all)
?=(^ f.hef.all)
?=(^ g.hef.all)
?=(^ t.hef.all)
==
+>.$
%+ done(hef.all [~ ~ ~ ~ ~ ~ ~])
%+ done(hef.all [~ ~ ~ ~ ~ ~])
%mass
=> [hef.all d=wegh]
[%vanes %| ~[u.a u.c d u.e u.f u.g u.b u.t]]
[%vanes %| ~[u.a u.c d u.e u.f u.g u.b]]
--
::
++ ax :: make ++as

7
sys/vane/ford.hoon
View File

@ -1,4 +1,3 @@
!:
:: pit: a +vase of the hoon+zuse kernel, which is a deeply nested core
::
|= pit=vase
@ -167,7 +166,6 @@
--
--
|%
::
:: +axle: overall ford state
::
+= axle
@ -5364,10 +5362,7 @@
:+ (scot %p our) %|
::
:~ [%builds [%& builds]]
[%ducts [%& ducts]]
[%builds-by-schematic [%& builds-by-schematic]]
[%pending-scrys [%& pending-scrys]]
[%pending-subscriptions [%& pending-subscriptions]]
[%cache [%& cache]]
==
==
:: +wipe: wipe half a +ford-state's cache, in LRU (least recently used) order