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

View File

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

View File

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