---

command-to-msg(c;nmsg;lmsg) ==
  if com-kind(c) =a "msg" then comm-msg(c)
  if com-kind(c) =a "choose" then nmsg
  else lmsg
  fi 

---

Definitions :  comm-msg: comm-msg(c),  ifthenelse: if b then t else f fi ,  eq_atom: x =a y,  com-kind: com-kind(c),  token: "$token"
FDL editor aliases :  command-to-msg

---

command-to-msg(c;nmsg;lmsg)  ==
    if  com-kind(c)  =a  "msg"  then  comm-msg(c)
    if  com-kind(c)  =a  "choose"  then  nmsg
    else  lmsg
    fi 


Date html generated: 2010_08_27-PM-07_58_33
Last ObjectModification: 2010_05_31-PM-02_52_50

Home Index