urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-02 08:55:07 +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
%- zing
%+ turn a
|= a/(pair styd (list @c))
|= a/(pair stye (list @c))
^- (list @c)
%- zing %- limo
:~ ?: =(0 ~(wyt in p.p.a))

6
arvo/zuse.hoon
View File

@ -2610,10 +2610,10 @@
++ sock {p/ship q/ship} :: outgoing [from to]
++ spur path :: ship desk case spur
++ step {p/bray q/gens r/pass} :: identity stage
++ stub (list (pair styd (list @c))) :: styled tuba
++ styd (pair (set deco) (pair tint tint)) :: decos/bg/fg
++ stub (list (pair stye (list @c))) :: styled tuba
++ stye (pair (set deco) (pair tint tint)) :: decos/bg/fg
++ 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
++ suba (list {p/path q/misu}) :: delta
++ tako @ :: yaki ref

12
lib/drum.hoon
View File

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