recip incorrect for 0 % 1

[Ian Lynagh]

Hi guys,

hugs has

recip (x:%y)        = if x < 0 then (-y) :% (-x) else y :% x

which is not correct when x == 0.


Thanks
Ian