X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fsplitting%2Fmonotonic%2Fmonotonic.factor;h=3641345a3ebd2bd9179e1224d9e8df1dbf69d146;hp=3dec6130de5a3e83b747cbeeff0a078e10d52294;hb=3f3d57032bf29190e9bee12d168a4bce6d74653c;hpb=cd1bb8f4c8afba318249c7b756a45aa1c46ea51e

diff --git a/basis/splitting/monotonic/monotonic.factor b/basis/splitting/monotonic/monotonic.factor
index 3dec6130de..3641345a3e 100644
--- a/basis/splitting/monotonic/monotonic.factor
+++ b/basis/splitting/monotonic/monotonic.factor
@@ -29,10 +29,10 @@ PRIVATE>
             [ length ] [ ] [ <circular> 1 over change-circular-start ] tri
             [ @ not [ , ] [ drop ] if ] 3each
         ] { } make
-        dup empty? [ over length 1- prefix ] when -1 prefix 2 clump
+        dup empty? [ over length 1 - prefix ] when -1 prefix 2 clump
         swap
     ] dip
-    '[ first2 [ 1+ ] bi@ _ _ boa ] map ; inline
+    '[ first2 [ 1 + ] bi@ _ _ boa ] map ; inline
 
 PRIVATE>