boyer-moore: fixed indentation, typos

[factor.git] / extra / boyer-moore / boyer-moore.factor

diff --git a/extra/boyer-moore/boyer-moore.factor b/extra/boyer-moore/boyer-moore.factor
index 4de88c4a1d6104b6e6704356934a9b745d77bb65..aba3f614a12642c7e5bd9e0d55d97603f39545e6 100644 (file)
--- a/extra/boyer-moore/boyer-moore.factor
+++ b/extra/boyer-moore/boyer-moore.factor
@@ -53,10 +53,12 @@ TUPLE: boyer-moore pattern bc-table gs-table ;
     pat length        :> plen
     seq length plen - :> lim
     from
-    [ dup lim <=
-      [ seq pat pick plen mismatch?
-        [ 2dup + seq nth-unsafe bm do-shift t ] [ f ] if*
-      ] [ drop f f ] if
+    [
+        dup lim <=
+        [
+            seq pat pick plen mismatch?
+            [ 2dup + seq nth-unsafe bm do-shift t ] [ f ] if*
+        ] [ drop f f ] if
     ] loop ; inline
 
 PRIVATE>