From 64bb5b45c44b18dda1ddfa998505bb2d62e81634 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Thu, 5 Feb 2009 04:12:57 -0600
Subject: [PATCH] ui.gadgets.traceback: Cleanup

---
 basis/ui/tools/traceback/traceback.factor | 18 ++++++++----------
 1 file changed, 8 insertions(+), 10 deletions(-)

diff --git a/basis/ui/tools/traceback/traceback.factor b/basis/ui/tools/traceback/traceback.factor
index bb09aa2de2..bd8b0625af 100644
--- 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 -- )