



if x < -8.61646249982272e-12rm if -8.61646249982272e-12 < x Original test:
(lambda ((x default))
#:name "Kahan's exp quotient"
(/ (- (exp x) 1) x)
#:target
(if (and (< x 1) (> x -1)) (/ (- (exp x) 1) (log (exp x))) (/ (- (exp x) 1) x)))