
/**  Singularity Warnings **/
/*A: K McIsaac*/
/*S: University of Western Australia, Nedlands 6009, Australia*/
/*D: June 1988 */
/*K: Singular; Warning */
/*B:  */
/* Warns of singularities
	Addapted from XWarn by S Wolfram */
<<XPrW

/* Division by zero */
$x/(0_=PrhW[Fmt[,$x/0," generated"]]) :: $x/0
Pow[0,$x_=(If[$x<0,PrhW[Fmt[,0^$x," generated"]]])] :: 0^$x

/* Singular functions */
Log[0_=PrhW["Log[0] generated"]] :: Log[0]
Gamma[$n_=If[Natp[-$n+1],Prh[Fmt[,Gamma[$n]," generated"]]]] :: Gamma[$n]

