ui.gadgets.traceback: Cleanup

diff --git a/basis/ui/tools/traceback/traceback.factor b/basis/ui/tools/traceback/traceback.factor
index bb09aa2de221b7f38e6fcd709a555951ad6798f7..bd8b0625af3231f765a4f6de9ae2d79106c2a664 100644 (file)
--- a/basis/ui/tools/traceback/traceback.factor
+++ b/basis/ui/tools/traceback/traceback.factor
@@ -25,17 +25,15 @@ TUPLE: traceback-gadget < track ;
 M: traceback-gadget pref-dim* drop { 550 600 } ;
 
 : <traceback-gadget> ( model -- gadget )
-    vertical traceback-gadget new-track
-        swap >>model
-
-    dup model>>
-        horizontal <track>
-            over <datastack-display> 1/2 track-add
-            swap <retainstack-display> 1/2 track-add
+    [ vertical traceback-gadget new-track ] dip
+    [ >>model ]
+    [
+        [ horizontal <track> ] dip
+        [ <datastack-display> 1/2 track-add ]
+        [ <retainstack-display> 1/2 track-add ] bi
         1/3 track-add
-
-    dup model>> <callstack-display> 2/3 track-add
-
+    ]
+    [ <callstack-display> 2/3 track-add ] tri
     add-toolbar ;
 
 : variables ( traceback -- )