Exception for Kahan's exp quotient

Specification

\[\begin{array}{l} \\ \frac{e^{x} - 1}{x} \end{array} \]

(FPCore (x) :precision binary64 (/ (- (exp x) 1.0) x))

double code(double x) {
	return (exp(x) - 1.0) / x;
}

real(8) function code(x)
    real(8), intent (in) :: x
    code = (exp(x) - 1.0d0) / x
end function

public static double code(double x) {
	return (Math.exp(x) - 1.0) / x;
}

def code(x):
	return (math.exp(x) - 1.0) / x

function code(x)
	return Float64(Float64(exp(x) - 1.0) / x)
end

function tmp = code(x)
	tmp = (exp(x) - 1.0) / x;
end

code[x_] := N[(N[(N[Exp[x], $MachinePrecision] - 1.0), $MachinePrecision] / x), $MachinePrecision]

\begin{array}{l}

\\
\frac{e^{x} - 1}{x}
\end{array}