Merge commit '2509b' into cc-merge

This commit is contained in:
C. Guy Yarvin 2016-11-13 15:26:16 -08:00
commit 51e7ed2a99

View File

@ -412,13 +412,12 @@
(se-show (sub p.lin off) (scag edg (slag off q.lin)))
::
++ se-view :: flush buffer
^+ .
=+ gul=se-agon
?~ gul +
=+ gyr=(~(get by fug) u.gul)
?~ gyr +>
?~ u.gyr +>
%- se-just
~(ta-vew ta [& u.gul] u.u.gyr)
=+ tur=?~(gul ~ (~(get by fug) u.gul)) :: XX se-aint
?: |(?=($~ gul) ?=($~ tur) ?=($~ u.tur))
+>
(se-just ta-vew:(se-tame u.gul))
::
++ se-emit :: emit move
|= mov/move