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

Less.

Browse Source
This commit is contained in:
C. Guy Yarvin 2015-06-08 16:36:14 -07:00
parent b9b470ae78
commit 1d09626776
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
base/arvo/gall.hoon
View File

@ -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

4
base/lib/drum.hoon
View File

@ -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