uses ++se-aint in ++se-view and ++se-belt

This commit is contained in:
Joseph Bryan 2016-09-08 01:21:09 -04:00
parent dba8cace15
commit 06910221b0

View File

@ -312,11 +312,9 @@
{$yow *} ~&([%no-yow -.bet] +>)
==
=+ gul=se-agon
=+ tur=?~(gul ~ (~(get by fug) u.gul)) :: XX se-aint
?: |(?=($~ gul) ?=($~ tur) ?=($~ u.tur))
?: |(?=($~ gul) (se-aint u.gul))
(se-blit %bel ~)
=< ta-abet
(ta-belt:(se-tame u.gul) bet)
ta-abet:(ta-belt:(se-tame u.gul) bet)
::
++ se-born :: new server
|= wel/well
@ -398,9 +396,7 @@
++ se-view :: flush buffer
^+ .
=+ gul=se-agon
=+ tur=?~(gul ~ (~(get by fug) u.gul)) :: XX se-aint
?: |(?=($~ gul) ?=($~ tur) ?=($~ u.tur))
+>
?: |(?=($~ gul) (se-aint u.gul)) +
(se-just ta-vew:(se-tame u.gul))
::
++ se-emit :: emit move