Various fixes.

This commit is contained in:
C. Guy Yarvin 2015-05-15 01:09:12 -07:00
parent 9a60d48e21
commit 6b4f6a80f1
4 changed files with 2 additions and 4 deletions

View File

@ -57,7 +57,7 @@
++ colm (cook |=(a=@ (sub a '1')) (shim '1' '3')) :: row or column ++ colm (cook |=(a=@ (sub a '1')) (shim '1' '3')) :: row or column
++ come ;~(plug colm ;~(pfix fas colm)) :: coordinate ++ come ;~(plug colm ;~(pfix fas colm)) :: coordinate
-- :: -- ::
|_ [hid=hide moz=(list move) axle] :: per agent |_ [hid=hide moz=(list move) axle] :: per server
++ et :: ++ et ::
|_ [from say=sole-share] :: per console client |_ [from say=sole-share] :: per console client
++ abet +>(q.eye (~(put by q.eye) ost say)) :: continue ++ abet +>(q.eye (~(put by q.eye) ost say)) :: continue

View File

@ -48,7 +48,7 @@
|= [from hood-begin] |= [from hood-begin]
(ably (poke-begin:(helm-work [hid +<-] (able %helm)) +<+)) (ably (poke-begin:(helm-work [hid +<-] (able %helm)) +<+))
:: ::
++ poke-hood-init :: ++ poke-helm-init ::
|= [from hood-init] |= [from hood-init]
(ably (poke-init:(helm-work [hid +<-] (able %helm)) +<+)) (ably (poke-init:(helm-work [hid +<-] (able %helm)) +<+))
:: ::

View File

@ -1609,7 +1609,6 @@
== ==
:: ::
++ te-whom :: render sender ++ te-whom :: render sender
~& [%te-whom man lix te-best te-maud]
(~(ta-show ta man (need te-best)) ~ te-maud) (~(ta-show ta man (need te-best)) ~ te-maud)
-- --
:: ::

View File

@ -131,7 +131,6 @@
?> ?=(^ wil) ?> ?=(^ wil)
=< abet =< abet
%- emil(bur ~) %- emil(bur ~)
~& [%poke-will wil]
:~ [%cash /helm p.u.bur q.u.bur u.wil] :~ [%cash /helm p.u.bur q.u.bur u.wil]
[%plug /helm our %home (sein our) %kids] [%plug /helm our %home (sein our) %kids]
== ==