factor: fix some spacing

[factor.git] / extra / rosetta-code / n-queens / n-queens.factor

diff --git a/extra/rosetta-code/n-queens/n-queens.factor b/extra/rosetta-code/n-queens/n-queens.factor
index f55981122e07c7a3bcea039a42400eabda1c61e0..99952f1928980fedda345967ee23d0677c18e43a 100644 (file)
--- a/extra/rosetta-code/n-queens/n-queens.factor
+++ b/extra/rosetta-code/n-queens/n-queens.factor
@@ -10,13 +10,13 @@ IN: rosetta-code.n-queens
 
 :: safe?  ( board q -- ? )
     [let q board nth :> x
-      q <iota> [
-         x swap
-         [ board nth ] keep
-         q swap -
-           [ + = not ]
-           [ - = not ] 3bi and
-      ] all?
+        q <iota> [
+            x swap
+            [ board nth ] keep
+            q swap -
+            [ + = not ]
+            [ - = not ] 3bi and
+        ] all?
     ] ;
 
 : solution? ( board -- ? )