]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/benchmark/ring/ring.factor
core, basis, extra: Remove DOS line endings from files.
[factor.git] / extra / benchmark / ring / ring.factor
index 18583e861ea4e440acaf66694803ab86d8177d17..509538a1751df7ece5f56119e9ad8636fe71a6f5 100644 (file)
@@ -13,13 +13,13 @@ SYMBOL: done
     ] times ;
 
 : send-messages ( messages target -- )
-    [ dup iota ] dip [ send ] curry each [ receive drop ] times ; 
+    [ dup iota ] dip [ send ] curry each [ receive drop ] times ;
 
 : destroy-ring ( target -- )
     done swap send [ done eq? ] receive-if drop ;
 
 : ring-bench ( messages processes -- )
-    create-ring [ send-messages ] keep destroy-ring ; 
+    create-ring [ send-messages ] keep destroy-ring ;
 
 : ring-benchmark ( -- )
     1000 1000 ring-bench ;