



if x < -6.349368961717618e-07rm if -6.349368961717618e-07 < 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)))