boyer-moore: fixed indentation, typos

[factor.git] / extra / z-algorithm / z-algorithm.factor

diff --git a/extra/z-algorithm/z-algorithm.factor b/extra/z-algorithm/z-algorithm.factor
index 12306dc0803626def87a5e88b5b1e259adb0842e..bd312755a3f7b2fc9f19dc811dd0b0216031ff7c 100644 (file)
--- a/extra/z-algorithm/z-algorithm.factor
+++ b/extra/z-algorithm/z-algorithm.factor
@@ -19,8 +19,9 @@ IN: z-algorithm
     r k - 1 +   :> b
     seq Z Zk' b <
     [ Zk' Z push l r ] ! still inside
-    [ seq r 1 + seq b [ tail-slice ] 2bi@ lcp :> q
-      q b + Z push k q r +
+    [
+        seq r 1 + seq b [ tail-slice ] 2bi@ lcp :> q
+        q b + Z push k q r +
     ] if ; inline
 
 : (z-value) ( seq Z l r k -- seq Z l r )