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

Various fixes and improvements.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-07-09 17:48:53 -07:00
parent 27bf640e79
commit a608e99ce0
5 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
arvo/ames.hoon
View File

@ -435,7 +435,7 @@
vix=(bex +((cut 0 [25 2] mag))) :: width of sender vix=(bex +((cut 0 [25 2] mag))) :: width of sender
tay=(cut 0 [27 5] mag) :: message type tay=(cut 0 [27 5] mag) :: message type
== ==
?> =(2 vez) ?> =(3 vez)
?> =(chk (end 0 20 (mug bod))) ?> =(chk (end 0 20 (mug bod)))
:+ [(end 3 wix bod) (cut 3 [wix vix] bod)] :+ [(end 3 wix bod) (cut 3 [wix vix] bod)]
(kins tay) (kins tay)
@ -455,7 +455,7 @@
=+ tay=(ksin q.kec) =+ tay=(ksin q.kec)
%+ mix %+ mix
%+ can 0 %+ can 0
:~ [3 2] :~ [3 3]
[20 (mug bod)] [20 (mug bod)]
[2 yax] [2 yax]
[2 qax] [2 qax]
@ -1043,7 +1043,7 @@
++ gnaw :: gnaw:am ++ gnaw :: gnaw:am
|= [kay=cape ryn=lane pac=rock] :: process packet |= [kay=cape ryn=lane pac=rock] :: process packet
^- [p=(list boon) q=fort] ^- [p=(list boon) q=fort]
?. =(2 (end 0 3 pac)) [~ fox] ?. =(3 (end 0 3 pac)) [~ fox]
=+ kec=(bite pac) =+ kec=(bite pac)
?: (goop p.p.kec) [~ fox] ?: (goop p.p.kec) [~ fox]
?. (~(has by urb.ton.fox) q.p.kec) ?. (~(has by urb.ton.fox) q.p.kec)

2
arvo/eyre.hoon
View File

@ -1260,7 +1260,7 @@
|= [for=logo toe=tube] |= [for=logo toe=tube]
^- seam ^- seam
:^ %fun for :^ %fun for
toe(s (weld s.toe `path`~[~(rent co (flux [nep ~] quy))])) toe(s (weld s.toe `path`[~(rent co (flux [nep ~] quy)) %web ~]))
?. won ~ ?. won ~
:_ ~ :_ ~
=- =+ pey=(cat 3 (end 3 2 nep) %v) =- =+ pey=(cat 3 (end 3 2 nep) %v)

5
arvo/ford.hoon
View File

@ -518,6 +518,11 @@
?: =(too for) (fine cof vax) ?: =(too for) (fine cof vax)
?: &(=(%hoot too) =(%hoon for)) ?: &(=(%hoot too) =(%hoon for))
(fine cof !>(ream)) (fine cof !>(ream))
?: |(=(%noun for) =(%$ for))
%+ cope ((lake too bek) cof vax)
|= [cof=cafe vux=(unit vase)]
?~ vux (flaw cof [%leaf "ford: link {<too>}"]~)
(fine cof u.vux)
%+ cope %+ cope
(make cof %boil %gate [[p.bek %main r.bek] /[too]/tan/[for]/sys] ~) (make cof %boil %gate [[p.bek %main r.bek] /[too]/tan/[for]/sys] ~)
|= [cof=cafe cay=cage] |= [cof=cafe cay=cage]

9
arvo/zuse.hoon
View File

@ -1465,7 +1465,6 @@
:: ::
++ fain :: path restructure ++ fain :: path restructure
|= [hom=path raw=path] |= [hom=path raw=path]
~& [%fain hom raw]
=+ bem=(need (tome raw)) =+ bem=(need (tome raw))
=+ [mer=(flop s.bem) moh=(flop hom)] =+ [mer=(flop s.bem) moh=(flop hom)]
|- ^- (pair beam path) |- ^- (pair beam path)
@ -1476,7 +1475,6 @@
:: ::
++ fest :: web synthesizer ++ fest :: web synthesizer
|= [hom=path raw=path] |= [hom=path raw=path]
~& %fest
|* yax=$+(epic *) |* yax=$+(epic *)
(yax (fuel (fain hom raw))) (yax (fuel (fain hom raw)))
:: ::
@ -1488,9 +1486,8 @@
++ fuel :: parse fcgi ++ fuel :: parse fcgi
|= [bem=beam but=path] |= [bem=beam but=path]
^- epic ^- epic
~& %fuel ?> ?=([%web @ *] but)
?> ?=([@ *] but) =+ dyb=(slay i.t.but)
=+ dyb=(slay i.but)
?> ?& ?=([~ %many *] dyb) ?> ?& ?=([~ %many *] dyb)
?=([* * *] p.u.dyb) ?=([* * *] p.u.dyb)
:: ?=([%$ %tas *] i.p.u.dyb) :: ?=([%$ %tas *] i.p.u.dyb)
@ -1517,7 +1514,7 @@
:* (~(gas by *(map cord cord)) quy) :* (~(gas by *(map cord cord)) quy)
ced ced
-.bem -.bem
t.but t.t.but
nyp nyp
== ==

2
main/doc/synth/down.hoon
View File

@ -25,8 +25,6 @@
:: ::
%- (fest /synth/doc %) %- (fest /synth/doc %)
|= pic=epic |= pic=epic
~& [%synth-cen %]
~& [%synth-beam (tome %)]
=+ unt=|=(a=cord (biff (~(get by qix.pic) a) |=(b=cord (slaw %ud b)))) =+ unt=|=(a=cord (biff (~(get by qix.pic) a) |=(b=cord (slaw %ud b))))
~! unt ~! unt
=+ moo=(both (unt %foo) (unt %bar)) =+ moo=(both (unt %foo) (unt %bar))