From 32ecb5d49bb6de970c3ae03acaa71008669d71c5 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 4 Sep 2009 03:01:41 -0500
Subject: [PATCH] benchmark.nbody-simd: use map-reduce instead of reduce

---
 extra/benchmark/nbody-simd/nbody-simd.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/benchmark/nbody-simd/nbody-simd.factor b/extra/benchmark/nbody-simd/nbody-simd.factor
index fb30ce7eaf..e83f3ddc01 100644
--- a/extra/benchmark/nbody-simd/nbody-simd.factor
+++ b/extra/benchmark/nbody-simd/nbody-simd.factor
@@ -49,7 +49,7 @@ STRUCT: body
 TUPLE: nbody-system { bodies struct-array read-only } ;
 
 : init-bodies ( bodies -- )
-    [ first ] [ double-4{ 0 0 0 0 } [ [ velocity>> ] [ mass>> ] bi v*n v+ ] reduce ] bi
+    [ first ] [ [ [ velocity>> ] [ mass>> ] bi v*n ] [ v+ ] map-reduce ] bi
     offset-momentum drop ; inline
 
 : <nbody-system> ( -- system )