sorting: better formatting

diff --git a/core/sorting/sorting.factor b/core/sorting/sorting.factor
index 949c306a67e79e18434170487b87ead97db9141e..5be28184a895aa2915ba6649c435c656097a8f48 100644 (file)
--- a/core/sorting/sorting.factor
+++ b/core/sorting/sorting.factor
@@ -34,16 +34,18 @@ TUPLE: merge-state
 
 : dump-l ( merge -- )
     [ accum>> ] keep
-    [ [ to1>> ] [ from1>> fixnum-fast ] [ accum>> length integer>fixnum-strict ] tri [ fixnum+fast >>length ] 2keep ]
-    [ seq>> ]
-    [ from1>> roll dupd fixnum+fast ] tri
+    [
+        [ to1>> ] [ from1>> fixnum-fast ] [ accum>> length integer>fixnum-strict ] tri
+        [ fixnum+fast >>length ] 2keep
+    ] [ seq>> ] [ from1>> roll dupd fixnum+fast ] tri
     copy-loop drop ; inline
 
 : dump-r ( merge -- )
     [ accum>> ] keep
-    [ [ to2>> ] [ from2>> fixnum-fast ] [ accum>> length integer>fixnum-strict ] tri [ fixnum+fast >>length ] 2keep ]
-    [ seq>> ]
-    [ from2>> roll dupd fixnum+fast ] tri
+    [
+        [ to2>> ] [ from2>> fixnum-fast ] [ accum>> length integer>fixnum-strict ] tri
+        [ fixnum+fast >>length ] 2keep
+    ] [ seq>> ] [ from2>> roll dupd fixnum+fast ] tri
     copy-loop drop ; inline
 
 : l-next ( merge -- )