diff --git a/collects/tests/racket/benchmarks/shootout/typed/spectralnorm.rktl b/collects/tests/racket/benchmarks/shootout/typed/spectralnorm.rktl index ea9d49820c..3d3a117234 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/spectralnorm.rktl +++ b/collects/tests/racket/benchmarks/shootout/typed/spectralnorm.rktl @@ -16,7 +16,7 @@ (for: ([i : Integer (in-range N)]) (unsafe-flvector-set! y i - (let L ([a 0.0] [j 0]) + (let: L : Float ([a : Float 0.0] [j : Integer 0]) (if (unsafe-fx= j N) a (L (unsafe-fl+ a (unsafe-fl* (unsafe-flvector-ref x j) (A i j))) (unsafe-fx+ j 1)))))))] @@ -25,7 +25,7 @@ (for: ([i : Integer (in-range N)]) (unsafe-flvector-set! y i - (let L ([a 0.0] [j 0]) + (let: L : Float ([a : Float 0.0] [j : Integer 0]) (if (unsafe-fx= j N) a (L (unsafe-fl+ a (unsafe-fl* (unsafe-flvector-ref x j) (A j i))) (unsafe-fx+ j 1)))))))]