From 6c133f3d94291aacf7fd24281a95ac8139afaf38 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Sun, 25 Sep 2005 05:35:29 +0000
Subject: [PATCH] outliner cleanup

---
 library/ui/outliner.factor | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/library/ui/outliner.factor b/library/ui/outliner.factor
index fd90840db8..0d25d0255a 100644
--- a/library/ui/outliner.factor
+++ b/library/ui/outliner.factor
@@ -14,9 +14,10 @@ TUPLE: outliner gadget quot pile expanded? ;
     swap outliner-pile add-gadget ;
 
 : setup-outliner ( quot outliner -- )
-    dup outliner-pile clear-gadget
-    dup outliner-gadget over outliner-pile add-gadget
-    over [ >r make-pane r> outliner-pile add-gadget ] [ 2drop ] if ;
+    dup outliner-gadget >r
+    outliner-pile dup clear-gadget
+    r> over add-gadget
+    over [ >r make-pane r> add-gadget ] [ 2drop ] if ;
 
 : collapse-outliner ( outliner -- )
     f over set-outliner-expanded? f swap setup-outliner ;