Delete empty unit tests files, remove 1- and 1+, reorder IN: lines in a lot of places...

[factor.git] / extra / benchmark / nbody / nbody.factor

diff --git a/extra/benchmark/nbody/nbody.factor b/extra/benchmark/nbody/nbody.factor
index f72ceb46297301bfe24e933a6d0f89e11b2491c6..983da8882176f1a7697d8fea8cdd6746c6599740 100644 (file)
--- a/extra/benchmark/nbody/nbody.factor
+++ b/extra/benchmark/nbody/nbody.factor
@@ -59,7 +59,7 @@ TUPLE: nbody-system { bodies array read-only } ;
 :: each-pair ( bodies pair-quot: ( other-body body -- ) each-quot: ( body -- ) -- )
     bodies [| body i |
         body each-quot call
-        bodies i 1+ tail-slice [
+        bodies i 1 + tail-slice [
             body pair-quot call
         ] each
     ] each-index ; inline