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
|
||||
^- [? _.]
|
||||
=+ suy=(fall (~(get by qel.ged) ost) 0)
|
||||
?: =(20 suy)
|
||||
?: =(40 suy)
|
||||
~& [%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)))]
|
||||
::
|
||||
++ ap-find :: general arm
|
||||
|
@ -179,7 +179,6 @@
|
||||
++ diff-sole-effect-phat ::
|
||||
|= [way=wire fec=sole-effect]
|
||||
=< se-abet =< se-view
|
||||
~& [%phat +.fec]
|
||||
=+ gyl=(drum-phat way)
|
||||
?: (se-aint gyl) +>.$
|
||||
(se-diff gyl fec)
|
||||
@ -689,7 +688,8 @@
|
||||
%tan (ta-tan p.fec)
|
||||
%sag +>(+> (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
|
||||
|
Loading…
Reference in New Issue
Block a user