Exception for 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}

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

Please file a bug report with this information.

map: contract violation expected: list? given: '((neg.f64 (-.f64 #s(literal 1 binary64) (*.f64 x x))) . #hasheq((errs . (1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1...		L	C
gen-map	/usr/local/racket/collects/racket/private/map.rkt	257	2
actual-errors	/home/nightlies/herbie/zane-concrete-values/src/core/explain.rkt	35	0
generate-timelines	/home/nightlies/herbie/zane-concrete-values/src/core/explain.rkt	493	0
explain!	/home/nightlies/herbie/zane-concrete-values/src/core/mainloop.rkt	322	0
run-improve!	/home/nightlies/herbie/zane-concrete-values/src/core/mainloop.rkt	44	0
get-alternatives/report	/home/nightlies/herbie/zane-concrete-values/src/api/sandbox.rkt	186	0
(unnamed)	/home/nightlies/herbie/zane-concrete-values/src/api/sandbox.rkt	282	6
(unnamed)	/usr/local/racket/share/pkgs/profile-lib/main.rkt	40	10
profile-thunk	/usr/local/racket/share/pkgs/profile-lib/main.rkt	9	0
(unnamed)	/usr/local/racket/collects/racket/engine.rkt	42	24