From 49470901910f59294e5bdc3ef66cc74f52864746 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Wed, 6 Jul 2011 18:32:47 -0400 Subject: [PATCH] Fix benchmark to reflect changes to flvector ops types. --- .../tests/racket/benchmarks/shootout/typed/spectralnorm.rktl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)))))))]