From c6270b732423504adf5c88bbb04e9cc1dc825318 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 20 Feb 2023 20:31:22 -0600
Subject: [PATCH] sorting: better formatting

---
 core/sorting/sorting.factor | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/core/sorting/sorting.factor b/core/sorting/sorting.factor
index 949c306a67..5be28184a8 100644
--- 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 -- )
-- 
2.34.1