%
% safely send message to partner
%
% stack: intent-pref command
%
@@
fork@)?
{
 _Mach.Partner
"partip" log)(
 *machispb
"valid ip?" log)(
 {
  http ^ &"/color.cgi?color=" ^ &"&go=siphon.htm"
  *machctrm
  &"sent"
 }
 {
%
% not valid ip address, command and repartner
%
  pop
  &"no valid ip, inquiring"
  *machrepa
 } ifelse
}
{
%
% not at sub-tree
%
 pop
 &"Machine?"
} ifelse
*machcomt