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

Trivial fixes

Browse Source
This commit is contained in:
Jared Hance 2014-07-28 10:25:07 -04:00
parent 3a48876a4d
commit dbb5995c9d
2 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
arvo/zuse.hoon
View File

@ -1081,8 +1081,8 @@
?: =(0 let) [~ 0] :: avoid underflow
?: %+ gte p.lok
=< t
%- need %- ~(get by hut)
%- need %- ~(get by hit)
%- ~(got by hut)
%- ~(got by hit)
let
[~ let]
$(let (dec let))
@ -1155,7 +1155,7 @@
%- ~(uni in bar)
^$(yak (need (~(get by hut) yek)))
::
++ hack
++ hack :: trivial
|= [a=(set tako) b=(set lobe)]
^- [(set yaki) (set blob)]
:- %- sa %+ turn (~(tap by a) ~)
@ -1266,7 +1266,6 @@
=+ ^= per
?~ par ~
~[u.par]
^- [yaki (map lobe blob)] :: to create new commit
=+ gar=(aqel (azal q.lem))
:- %^ zoal per +.gar wen :: from existing diff
-.gar :: fix lat
@ -2391,7 +2390,7 @@
++ dome :: project state
$: ang=agon :: pedigree
ank=ankh :: state
let=@ud :: (lent hit)
let=@ud :: top id
hit=(map ,@ud tako) :: changes by id
lab=(map ,@tas ,@ud) :: labels
== ::

3
main/bin/update.hoon
View File

@ -45,11 +45,8 @@
=+ der=((hard dome) .^(%cv /(scot %p bos)/[des]/[wen]))
=+ owr=((hard dome) .^(%cv /(scot %p who)/[des]/[wen]))
[der owr des]
~& %start-posh
%- (posh (add ~s1 est)) :: hack
|= tim=@da
~& %get-ran
=+ ran=((hard rang) .^(%cu /(scot %p who)/main/(scot %da tim))) :: global store
~& %got-ran
=+ gifts=`(list gift)`(turn desks (merge ?~(gem %fine -.gem) who bos est ran))
`bowl`[[[%la %leaf "updating..."] gifts] ~]