factor: fix some spacing

[factor.git] / basis / unicode / breaks / breaks.factor

diff --git a/basis/unicode/breaks/breaks.factor b/basis/unicode/breaks/breaks.factor
index f69b0945feab23dad5982c8297f61c2e28ea3a53..60421a4ba1583984a690d213c3e815a97ceb7e10 100644 (file)
--- a/basis/unicode/breaks/breaks.factor
+++ b/basis/unicode/breaks/breaks.factor
@@ -95,17 +95,17 @@ CATEGORY: spacing Mc ;
         { [ dup jamo? ] [ jamo-class ] }
         { [ dup hangul? ] [ hangul-class ] }
         { [ dup grapheme-control? ] [
-              control-class dup ZWJ = [
-                  drop
-                  str unclip-last-slice drop dup [
-                      [ extend? ]
-                      [ control-class Extend = ]
-                      [ modifier? ]
-                      tri or or not
-                  ] find-last drop [ swap ?nth ] [ last ] if*
-                  extended-pictographic-table interval-key? [
-                      (Extended_Pictographic-Extend*-)ZWJ
-                  ] [ ZWJ ] if
+            control-class dup ZWJ = [
+                drop
+                str unclip-last-slice drop dup [
+                    [ extend? ]
+                    [ control-class Extend = ]
+                    [ modifier? ]
+                    tri or or not
+                ] find-last drop [ swap ?nth ] [ last ] if*
+                extended-pictographic-table interval-key? [
+                    (Extended_Pictographic-Extend*-)ZWJ
+                ] [ ZWJ ] if
               ] when
           ] }
         { [ dup extend? ] [ drop Extend ] }