(denominator <real>) returns exact 1
Made division of exact zero by anything return exact zero
Added (make-polar)