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

[factor.git] / extra / benchmark / nsieve-bytes / nsieve-bytes.factor

diff --git a/extra/benchmark/nsieve-bytes/nsieve-bytes.factor b/extra/benchmark/nsieve-bytes/nsieve-bytes.factor
index bbeccf750b3fca290c370e98b9901cb377752cd4..15c0f9ee0b1dc0670c933152d1a5274fcef9759b 100644 (file)
--- a/extra/benchmark/nsieve-bytes/nsieve-bytes.factor
+++ b/extra/benchmark/nsieve-bytes/nsieve-bytes.factor
@@ -13,14 +13,14 @@ byte-arrays make io ;
     2dup length < [
         2dup nth-unsafe 0 > [
             over dup 2 * pick clear-flags
-            rot 1+ -rot ! increment count
-        ] when [ 1+ ] dip (nsieve)
+            rot 1 + -rot ! increment count
+        ] when [ 1 + ] dip (nsieve)
     ] [
         2drop
     ] if ; inline recursive
 
 : nsieve ( m -- count )
-    0 2 rot 1+ <byte-array> dup [ drop 1 ] change-each (nsieve) ;
+    0 2 rot 1 + <byte-array> dup [ drop 1 ] change-each (nsieve) ;
 
 : nsieve. ( m -- )
     [ "Primes up to " % dup # " " % nsieve # ] "" make print ;