X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fprettyprint%2Fsections%2Fsections.factor;h=040b6d8f7c23723f365e04e8bc002d56bb364cb7;hp=0e0c7afb82ad0041c9a4e370f665dfeabed0f2e0;hb=3f3d57032bf29190e9bee12d168a4bce6d74653c;hpb=cd1bb8f4c8afba318249c7b756a45aa1c46ea51e

diff --git a/basis/prettyprint/sections/sections.factor b/basis/prettyprint/sections/sections.factor
index 0e0c7afb82..040b6d8f7c 100644
--- a/basis/prettyprint/sections/sections.factor
+++ b/basis/prettyprint/sections/sections.factor
@@ -44,7 +44,7 @@ TUPLE: pprinter last-newline line-count indent ;
         line-limit? [
             "..." write pprinter get return
         ] when
-        pprinter get [ 1+ ] change-line-count drop
+        pprinter get [ 1 + ] change-line-count drop
         nl do-indent
     ] if ;
 
@@ -209,7 +209,7 @@ M: block short-section ( block -- )
 TUPLE: text < section string ;
 
 : <text> ( string style -- text )
-    over length 1+ \ text new-section
+    over length 1 + \ text new-section
         swap >>style
         swap >>string ;
 
@@ -310,8 +310,8 @@ SYMBOL: next
 : group-flow ( seq -- newseq )
     [
         dup length [
-            2dup 1- swap ?nth prev set
-            2dup 1+ swap ?nth next set
+            2dup 1 - swap ?nth prev set
+            2dup 1 + swap ?nth next set
             swap nth dup split-before dup , split-after
         ] with each
     ] { } make { t } split harvest ;