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

++styd -> ++stye

Browse Source
This commit is contained in:
Joseph Bryan 2016-10-15 23:03:05 -04:00
parent a3874b2410
commit 6d5aa72469
3 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
arvo/dill.hoon
View File

@ -204,7 +204,7 @@
|= a/stub |= a/stub
%- zing %- zing
%+ turn a %+ turn a
|= a/(pair styd (list @c)) |= a/(pair stye (list @c))
^- (list @c) ^- (list @c)
%- zing %- limo %- zing %- limo
:~ ?: =(0 ~(wyt in p.p.a)) :~ ?: =(0 ~(wyt in p.p.a))

6
arvo/zuse.hoon
View File

@ -2610,10 +2610,10 @@
++ sock {p/ship q/ship} :: outgoing [from to] ++ sock {p/ship q/ship} :: outgoing [from to]
++ spur path :: ship desk case spur ++ spur path :: ship desk case spur
++ step {p/bray q/gens r/pass} :: identity stage ++ step {p/bray q/gens r/pass} :: identity stage
++ stub (list (pair styd (list @c))) :: styled tuba ++ stub (list (pair stye (list @c))) :: styled tuba
++ styd (pair (set deco) (pair tint tint)) :: decos/bg/fg ++ stye (pair (set deco) (pair tint tint)) :: decos/bg/fg
++ styl :: ++ styl ::
(pair (unit deco) (pair (unit tint) (unit tint))) :: cascading styd (pair (unit deco) (pair (unit tint) (unit tint))) :: cascading stye
++ styx (list $@(@t (pair styl styx))) :: styled text ++ styx (list $@(@t (pair styl styx))) :: styled text
++ suba (list {p/path q/misu}) :: delta ++ suba (list {p/path q/misu}) :: delta
++ tako @ :: yaki ref ++ tako @ :: yaki ref

12
lib/drum.hoon
View File

@ -823,7 +823,7 @@
^- (pair @ud stub) ^- (pair @ud stub)
=; vew/(pair (list @c) styx) =; vew/(pair (list @c) styx)
=+ lin=(make:klr q.vew) =+ lin=(make:klr q.vew)
:_ (welp lin [*styd p.vew]~) :_ (welp lin [*stye p.vew]~)
(add pos.inp (roll (lnts:klr lin) add)) (add pos.inp (roll (lnts:klr lin) add))
?: vis.pom ?: vis.pom
:- buf.say.inp :: default prompt :- buf.say.inp :: default prompt
@ -906,7 +906,7 @@
|% |%
++ make :: stub from styx ++ make :: stub from styx
|= a/styx |= a/styx
=| b/styd =| b/stye
%+ reel %+ reel
|- ^- stub |- ^- stub
%- zing %- zing
@ -922,7 +922,7 @@
?~(q.q.p.a q.q.b u.q.q.p.a) ?~(q.q.p.a q.q.b u.q.q.p.a)
== ==
:: ::
|= {a/(pair styd (list @c)) b/stub} |= {a/(pair stye (list @c)) b/stub}
?~ b ?~ b
[a]~ [a]~
?. =(p.a p.i.b) ?. =(p.a p.i.b)
@ -932,7 +932,7 @@
++ lnts :: stub pair lengths ++ lnts :: stub pair lengths
|= a/stub |= a/stub
%+ turn a %+ turn a
|= a/(pair styd (list @c)) |= a/(pair stye (list @c))
%+ add %+ add
(lent q.a) (lent q.a)
=+ d=~(wyt in p.p.a) =+ d=~(wyt in p.p.a)
@ -948,7 +948,7 @@
`[i c] `[i c]
$(i +(i), b t.b) $(i +(i), b t.b)
:: ::
++ slag :: slag stub, keep styd ++ slag :: slag stub, keep stye
|= {a/@ b/stub} |= {a/@ b/stub}
^- stub ^- stub
=+ c=(lnts b) =+ c=(lnts b)
@ -961,7 +961,7 @@
:_ r :- p.n :_ r :- p.n
(^slag (sub (snag p.u.i c) (sub q.u.i a)) q.n) (^slag (sub (snag p.u.i c) (sub q.u.i a)) q.n)
:: ::
++ scag :: scag stub, keep styd ++ scag :: scag stub, keep stye
|= {a/@ b/stub} |= {a/@ b/stub}
^- stub ^- stub
=+ c=(lnts b) =+ c=(lnts b)