factor: fix some spacing

[factor.git] / extra / rosetta-code / bulls-and-cows / bulls-and-cows.factor

diff --git a/extra/rosetta-code/bulls-and-cows/bulls-and-cows.factor b/extra/rosetta-code/bulls-and-cows/bulls-and-cows.factor
index 3e84fa2e9e2d28a1be3a1da81d84947b54980d71..04b3e10caa07b79ee3cd7a5288534747760613e4 100644 (file)
--- a/extra/rosetta-code/bulls-and-cows/bulls-and-cows.factor
+++ b/extra/rosetta-code/bulls-and-cows/bulls-and-cows.factor
@@ -58,7 +58,7 @@ TUPLE: bull ;
     } cond ;
 
 : add-to-score ( arr -- score )
-   <score> [ bull? [ inc-bulls ] [ inc-cows ] if ] reduce ;
+    <score> [ bull? [ inc-bulls ] [ inc-cows ] if ] reduce ;
 
 : check-win ( score -- ? ) bulls>> 4 = ;