mirror of
https://github.com/urbit/shrub.git
synced 2024-12-14 11:08:45 +03:00
Less.
This commit is contained in:
parent
b9b470ae78
commit
1d09626776
@ -678,10 +678,10 @@
|
|||||||
++ ap-fill :: add to queue
|
++ ap-fill :: add to queue
|
||||||
^- [? _.]
|
^- [? _.]
|
||||||
=+ suy=(fall (~(get by qel.ged) ost) 0)
|
=+ suy=(fall (~(get by qel.ged) ost) 0)
|
||||||
?: =(20 suy)
|
?: =(40 suy)
|
||||||
~& [%ap-fill-full [our dap] q.q.pry ost]
|
~& [%ap-fill-full [our dap] q.q.pry ost]
|
||||||
[%| +]
|
[%| +]
|
||||||
:: ~? !=(20 suy) [%ap-fill-add [[our dap] q.q.pry ost] +(suy)]
|
:: ~? !=(40 suy) [%ap-fill-add [[our dap] q.q.pry ost] +(suy)]
|
||||||
[%& +(qel.ged (~(put by qel.ged) ost +(suy)))]
|
[%& +(qel.ged (~(put by qel.ged) ost +(suy)))]
|
||||||
::
|
::
|
||||||
++ ap-find :: general arm
|
++ ap-find :: general arm
|
||||||
|
@ -179,7 +179,6 @@
|
|||||||
++ diff-sole-effect-phat ::
|
++ diff-sole-effect-phat ::
|
||||||
|= [way=wire fec=sole-effect]
|
|= [way=wire fec=sole-effect]
|
||||||
=< se-abet =< se-view
|
=< se-abet =< se-view
|
||||||
~& [%phat +.fec]
|
|
||||||
=+ gyl=(drum-phat way)
|
=+ gyl=(drum-phat way)
|
||||||
?: (se-aint gyl) +>.$
|
?: (se-aint gyl) +>.$
|
||||||
(se-diff gyl fec)
|
(se-diff gyl fec)
|
||||||
@ -689,7 +688,8 @@
|
|||||||
%tan (ta-tan p.fec)
|
%tan (ta-tan p.fec)
|
||||||
%sag +>(+> (se-blit fec))
|
%sag +>(+> (se-blit fec))
|
||||||
%sav +>(+> (se-blit fec))
|
%sav +>(+> (se-blit fec))
|
||||||
%txt $(fec [%tan [%leaf p.fec]~])
|
%txt ~& [%ta-fec (tape p.fec)]
|
||||||
|
$(fec [%tan [%leaf p.fec]~])
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ ta-dog :: change cursor
|
++ ta-dog :: change cursor
|
||||||
|
Loading…
Reference in New Issue
Block a user