mc(<large x>) --> overflow sum_p/sum_q --> gave inf.loop [report by Mihir Arjunwadkar];
 TODOs and cosmetic

git-svn-id: svn://svn.r-forge.r-project.org/svnroot/robustbase@550 694ef91d-65df-0310-b7bb-92e67a308ead