exp neg sub

Specification

?
\[\begin{array}{l} \\ e^{-\left(1 - x \cdot x\right)} \end{array} \]
(FPCore (x) :precision binary64 (exp (- (- 1.0 (* x x)))))
double code(double x) {
	return exp(-(1.0 - (x * x)));
}
real(8) function code(x)
    real(8), intent (in) :: x
    code = exp(-(1.0d0 - (x * x)))
end function
public static double code(double x) {
	return Math.exp(-(1.0 - (x * x)));
}
def code(x):
	return math.exp(-(1.0 - (x * x)))
function code(x)
	return exp(Float64(-Float64(1.0 - Float64(x * x))))
end
function tmp = code(x)
	tmp = exp(-(1.0 - (x * x)));
end
code[x_] := N[Exp[(-N[(1.0 - N[(x * x), $MachinePrecision]), $MachinePrecision])], $MachinePrecision]
\begin{array}{l}

\\
e^{-\left(1 - x \cdot x\right)}
\end{array}

Reproduce

?
herbie shell --seed 2024238 
(FPCore (x)
  :name "exp neg sub"
  :precision binary64
  (exp (- (- 1.0 (* x x)))))

Please file a bug report with this information.

Backtrace

error: contract violation expected: string? given: 'neg.f64LC
f345.../match/compiler.rkt55940
loop.../private/map.rkt4019
loop.../private/map.rkt4019
loop.../private/map.rkt4019
loop.../private/map.rkt4019
loop.../private/map.rkt4019
compile-expr/home/nightlies/herbie/bhargav-log-space/src/core/explain.rkt700
explain/home/nightlies/herbie/bhargav-log-space/src/core/explain.rkt6140
explain!/home/nightlies/herbie/bhargav-log-space/src/core/mainloop.rkt3210
run-improve!/home/nightlies/herbie/bhargav-log-space/src/core/mainloop.rkt430
get-alternatives/report/home/nightlies/herbie/bhargav-log-space/src/api/sandbox.rkt1840
(unnamed)/home/nightlies/herbie/bhargav-log-space/src/api/sandbox.rkt2806
(unnamed)/usr/local/racket/share/pkgs/profile-lib/main.rkt4010
profile-thunk/usr/local/racket/share/pkgs/profile-lib/main.rkt90
(unnamed)/usr/local/racket/collects/racket/engine.rkt4224